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I.   INTRODUCTION 


Presentation  of  information  using  computer  aided  video 
graphical  or  pen  plotting  devices  has  beccme  very  important 
and  extremely  useful  in  almost  every  profession. 
Three-dimensional  computer  graphics  is  being  utilized  to 
display  air  combat  training  in  the  military,  xray  scans  of 
the  human  body  in  medecine,  and  blue  prints  and  stress 
characteristics  for  mechanical  parts  in  industry.  It  has 
even  been  used  to  make  animated  movies.  Since  one 
manufacturer  of  graphical  machines  has  net  cornered  the 
market,  software  and  hardware  standards  have  not  been 
established.  Each  machine  has  a  different  screen  area, 
smallest  resolution  size,  and  data  structure.  The  lack  of  a 
standard  graphics  language  becomes  a  source  of  expensive 
software  re-writing  every  time  a  newer  more  capable  graphics 
machine  is  purchased. 

The  existing  video  graphical  devices  can  be  divided  into 
these  four  distinct  categories:  direct  view  storage  tubes; 
vector  generator  cathode  ray  tubes  (CRT^s);  raster  scan 
CRT's;  and  plasma  panels.  The  first  three  types  of  devices 
have  acheived  high  resclution  displays  and  are  most  commonly 
used.  As  a  minimum,  the  hard  copy  devices  have  the 
capability  of  pen  plotting  and  the  more  advanced  machines 
produce  shaded  images  using  electrostatic  plotting.  Except 
fcr  a  plasma  panel  device,  access  to  the  above  graphic 
machines  was  readily  available  at  the  Naval  Postgraduate 
School.  Although  all  of  these  devices  were  supported 
through  Ecrtran  IV,  the  software  for  one  machine  exhibited 
little  discernible  similarity  to  that  for  another.  Each 
graphics  device  did  have  its   own   manual,   but   the   actual 
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efficient  utilization  of  an  output  terminal,  at  or  near  its 
designed  capability,  was  typically  left  fcr  experimental 
realization . 

The  experimental  process,  learning  one  machined 
software  idiosyncrasies,  required  an  amount  of  time  which 
«as  generally  not  reduced  when  learning  these  of  a  second. 
The  high  cost  of  software  and  this  lengthy  device  learning 
process  were  the  two  main  incentives  urging  the  development 
of  a  graphics  software  package  which  could  be  used  with  any 
display  device.  Since  Fortran  IV  has  become  a  universally 
supported  language,  it  was  selected  as  the  development 
software.  Graphical  presentations  normally  involve  one  of 
the  following  four  types:  two-dimensional  (2-D)  graphs;  2-D 
images;  three-dimensional  (3-D)  graphs;  or  3-D  images.  The 
first  two  types  of  presentations  have  been  well  documented 
and  the  theory  for  both  has  been  fully  developed.  The 
theory  fcr  and  usage  of  3-D  graphs  has  also  received 
considerable  attention.  Programs  for  their  display  have 
been  published  in  many  software  languages.  Additionally, 
the  Naval  Station  in  Keyport,  Washington  was  interested  in  a 
real  time  3-D  Torpedo  presentation  of  the  torpedo  test  area 
for  the  Range  Safety  Officer. 

For  these  reasons,  the  scope  of  this  research  was 
limited  to  developing  a  three-dimensional  (image)  graphics 
package,  written  in  Fortran,  which  would  develop  a  data  set 
that  could  be  displayed  on  any  selected  device.  A  portable 
graphics  package  would  reduce  software  costs  for  interfacing 
with  a  new  device  to  a  minimal  effort.  Usage  of  a  3-D 
graphics  software  throughout  a  large  organization,  like  the 
Navy,  would  reduce  a  programmers  learning  experience  to  a 
one  time  effort.  An  individual  would  then  become  a  portable 
expert. 
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II.   THREE-DIMENSIONAL  GRAPHICS 


The  proper  display  of  a  3-D  object  on  a  2-D  surface, 
such  as  a  video  screen  or  a  piece  of  paper,  by  a  computer 
required  that  a  complete  numerical  description  of  the 
object's  boundaries  or  surfaces  be  supplied  fcr  processing. 
The  two  generally  accepted  methods  used  to  represent  3-D 
objects  are: 

1.  "  surface  definition  using  mathematical  equations; 

2.  and   surface   approximation   by   planar   polygonal 

mosaic . " 

1 

Either  description  required   that  a   coordinate  system  be 

constructed  to  provide  the  numerical  values. 


A.   DISPLAY  CF  AN  OBJECT  AND  ITS  HOTION 


A  right-banded,  cartesian  coordinate  system  provided  an 
acceptable  and  most  generally  understood  system  to  describe 
3-D  objects.  The  unit  of  measurement  was  aribitrary  with 
the  only  requirement  that  it  was  consistent.  This  system 
has  been  labeled  the  Object  coordinate  system.  The 
complexity  of  the  irathematics  required  to  define  the 
surfaces  of  an  object  with  equations  was  only  surpassed  by 
the  algorithms  required  to  project  the  image  onto  a  2-D 
surface  or  alter  the  viewing  aspect.  It  was  much  easier, 
both  for  understanding  and  utilization,  to  consider  each 
object  as  a  set  of  one  or  more  polyhedra.  Since  a 
polyhedron  consists  of  four  or  more  planar  sides,  called 
polygons,   the   realistic   approximation   of   non-planar 
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surfaces,  such  as  a  sphere,  was  determined  fcy  the  numter  of 
polygons  used.  By  definition,  a  polygon  was  a  flat  surface, 
a  plane,  tounded  by  three  or  more  connected,  straight  lines, 
called  edges.  Two  edges  intersected  at  a  single  point,  a 
vertex  of  the  polygon. 

Using  the  object  coordinate  system,  a  vertex  was  defined 
ty  its  x,  y,  and  z  values.  With  the  origin  placed  at  the 
geometric  center  of  the  object  being  described,  the  location 
of  the  vertices  was  simplified.  By  indexing  each  vertex  as 
it  was  specified,  an  edge  was  determined  by  the  indices  of 
the  two  vertices  which  were  its  endpcints.  Similarly, 
indexing  each  edge  allcwed  the  description  of  a  polygon 
using  the  indices  of  the  edges  forming  its  boundary. 
Finally,  a  polyhedron  was  specified  with  the  indices  of  the 
polygons  which  formed  its  planar  surfaces. 

With  this  type  of  object  definition,  object   motion   was 

iiplemented   by  moving  its   vertices  in   a  linear  manner. 

Linear  movement  of  the  vertices  preserved   the   straightness 

of   the   polygonal   edges   and  the  structural  purity  of  each 

polyhedron.   Translation,  which  was  the  linear  displacement 

cf   an  object,  was  defined  by  the  subtracticn  of  a  distance, 

I  ,  T  ,  or  I ,  from  the  respective  vertex  coordinate   value, 
x    y      z 

x,   y,  or  z.   Thus,  translation  produced  an  entirely  new  set 

of  vertex  values,  which  could  be  stated  as: 

x»  =  x  -  T 
x 

yi  =  y  -  T 
Y 

z»  =  z  -  T 

z 

Translation  coupled  with  rotation  of  a  point  prcvided 
the  ability  to  describe  any  3-D  motion.  Rotation  of  a  pcint 
P  was  most  easily  explained  in   two  dimensicns.    Thus,   in 
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Figure  1,  E  was  rotated  through  the  angle  theta  about  the 
origin  into  the  point  p«  by  the  transformation: 

x1  =  x  cos  -9  +  y  sin  -8 
y'  =  x  sin  0  -  y  cos  9 

This  derivation  for  2-D  rotation,  as  provided  in  Figure  1, 
was  directly  applied  to  3-D  rotation  about  the  Z-axis.  The 
angle  of  rotation  was  measured  in  the  clockwise  direction 
looking  from  the  positive  infinity  of  the  axis  about  which  a 
point  was  to  be  rotated.  Ccnfining  the  rotation  of  points, 
and  thus  objects,  to  a  combination  of  2-D  rotations  greatly 
simplified  the  computer  implimentation. 

The  last  transformation  utilized  to   alter  the   viewing 

aspect   of   an  object's   image  was  scaling.   This  algorithm 

reguired  that  the  vertex  coordinate  values  be  multiplied  by 

the   scale   factors   5  ,   S  ,   and   S  .    Erovided  the  scale 

x    y         z 

factors  were  of  equal  magnitude,  the  scaling  was  linear  and 
preserved  the  polyhedron's  shape. 

To  project  a  3-D  object  onto  a  2-D  surface  required   two 

transformations.      The     first,     called   the    viewing 

transf ormaticn,  mapped  the  object  coordinates  into  a   system 

which   bad   its   origin  at  the  viewpoint,  or  the  eye,  cf  the 

graphic  software's  user.   This  ccordinate   system   preserved 

the   object's  linearity  and  produced  the  image  of  the  cbject 

as  seen   by   the   "eye".    Hence,   it   was   called   the   Eye 

coordinate   system.    Its   Z  -axis  was  used  to  represent,  or 

e 

measure,  the  depth  of  the  images.   The  system's   X   and   Y. 

e        e 

axes   were   aligned   with  the  horizontal   and   vertical 

dimensions  of  the  display  screen,  respectively.  As  shewn  in 
Figure  2,  the  viewing  transformation  constructed  a 
left-handed  cartesian  coordinate  system. 
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The  second  transformation  simply  projected  the  eye 
coordinate  points  onto  the  plane  of  the  display  screen. 
Ihis  entire  transformation  was  easily  constructed  and 
explained  in  Section  III.  E.  2.,   using  Figure  12. 
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Figure    1    -      TWO-D    ROTATION    OF    A    POINT 
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Figure  2  -   EYE  COORDINATE  SYSTEM 
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E.   IMAGE  REALISM 


The  perspective  projection  of  an  object  onto  a  screen 
often  produced  points,  and  thus  vectors,  which  could  net  be 
displayed.  These  vectors  could  be  located  behind  the 
observer  cr  simply  off  the  screen.  The  first  case  would 
have  caused  erroneous  vectors  to  be  displayed,  which  cculd 
not  actually  be  seen.  Typically,  the  second  would  generate 
program  failure,  because  the  machine  could  not  display 
points,  cr  vectors  located  off  the  screen.  Therefore,  the 
non-viewable  portion  of  any  image  had  to  te  eliminated  or 
cut  away  from  the  viewable  section.  This  procedure  was 
called  image  clipping. 

Inital  3-D  displays  portrayed  objects  as  wire-framed 
images.  A  polyhedron  presented  in  Figure  3,  was  shown  with 
all  edges  displayed.  Because  this  was  a  simple  body,  the 
dedicated  observer  usually  recognized  it  as  a  representation 
of  a  3-D  ooject.  However,  the  correct  viewing  aspect  (i.e. 
which  surfaces  were  closest  to  the  viewer)  could  not 
positively  b€  ascertained.  For  this  reason,  the  first 
effort  to  have  a  computer  determine  a  more  realistic 
presentation  was  the  hidden  line  removal  algorithm.  Using 
one  of  these  algorithms,  the  display  shown  in  Figure  4  was 
drawn.  The  proper  viewing  aspect  was  instantly  apparent 
provided  the  viewer  recognized  the  display  as  a  3-D  image. 

The  next  computer  graphics  effort  to  increase  display 
realism  was  to  have  the  computer  generate  solid  poljgonal 
surfaces.  This  required  that  the  display  device  had  a 
shading  or  full  color  capability.  For  realistic  images,  the 
computer  had  to  possess  either  a  software  or  hardware 
implemented   hidden   surface   removal   algorithm.    Now,  the 
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viewable  image's  surfaces  were  displayed  as  shaded  or 
colored  poljgonal  planes  with  user  supplied  shading  or 
cclcrs. 

Most  recent  reasearch  has  concentrated  on  producing 
realistic,  computer  generated  shading  algorithms.  Using  the 
most  complex  shading  procedures  particular  elements  of  image 
realism  have  all  been  acheived.  However,  a  single  universal 
solution  to  the  proper  shading  of  images  has  not  been 
realized,  due  to  different  types  of  light  scurces,  various 
material  textures,  and  the  lack  of  a  uniform  material 
reflectivity  of  light.  To  greatly  decrease  display 
processing  time,  most  of  the  image  realism  programs  were 
implemented  in  hardware  after  procedure  refinement.  Thus, 
computer  graphics  realism  has  become  a  function  of  software 
time  available  or  of  the  cost  of  complex  hardware. 
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Figure  3  -   WIEE-FRAME  IMAGE 
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C.   GRAPHICS  SOPTWARE  STRUCTURE 


In  crder  to  provide  a  "state-of-tbe  art",  computer 
graphics  software  package,  the  following  capabilities  were 
determined  tc  be  the  minimal  requirements: 

1.  Object  to  screen  coordinate  transf creation; 

2.  Clipping  algorithm; 

3.  Image  scaling; 

4.  Image  translation; 

5.  Image  rotation; 

6.  Image  shading; 

7.  Hidden  line  removal; 

8.  Hidden  surface  removal. 

These  capabilities  enabled  the  viewing  of  an  image  from  any 
aspect  and  the  generation  of  realistic  displays  in  "real 
time". 

The  data  structure  utuilized  was  selected  for  its  ease 
of  user  implementation  and  its  appicability  to  the  input 
requirements  of  the  eight  procedures  above.  To  explain  the 
capabilities  above  (in  Section  III.) ,  each  pcint,  or  vertex, 
was  defined  as  a  one  by  four  vector,  such  as: 

[x  y  z  m],    where  m  was  a   scale   factor   of   the   3-D 
vector  (normally  m  =  1)  . 

Ihis  type  of  vector  representation  allowed  all 
transfor maticns  to  be  defined  as  a  four  by  four  matrix. 
While  the  complete  logic  for  matrix  and  vector  utilization 
was  provided  in  the  Appendices  of  Ref.  [1],  a  key  advantage 
was  that  it  facilitated  the  concatenation  of 
transformations.  Concatenation  of  matrices  can  be  simply 
explained  with  the  following  example. 
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[x*    y'    z«    1  J    =   [x   y   z    1]  A 
[x"    y"    z"    1]    =   [xf    y«    z«    1 ]   B 

Can   be    eguivalently  stated   as: 

[xM    y"    z"    1  ]   =   [    x  y   z    1    ]   1,        where    1   =A   B 

In  the  next  section,  the  algorithms  used  to  develope  the 
graphics  software  package  were  briefly  presented.  Since 
every  display  device  has  a  smallest  horizontal  and  vertical 
resolution  size,  the  proper  construction  of  an  image 
required  the  computational  utilization  of  these  machine 
dependent  features.  An  easy  means  to  visualize  this  concept 
for  any  device  was  to  construct  a  n  by  m  dot  matrix,  where  n 
was  the  number  of  horizontal  lines  and  m  was  the  number  of 
dots  per  line,  as  shown  in  Figure  5.  Thus,  to  display  an 
image  required  that  line  segments  be  drawn  between  the  dots. 
Similarly,  it  was  necessary  to  determined  the  screens  center 
in  order  to  position  the  image  in  the  middle  of  the  display 
surface.  The  following  terms  were  used  consistently  to 
define  these  quanties  (see  Figure  6)  : 

V  =  m/2,  was  half  of  the  horizontal  resolution  size; 
sx 

V  =  n/2,  was  half  of  the  vertical  resclution  size; 
sy 

V  =  m/2,  was  the  screen's  horizontal  center; 
ex 

V  =  n/2,  was  the  screen's  vertical  center, 
cy 


30 


•  0 

m  0       # 

•  «     «  * 
«  •      •     •       • 

•  «•♦•■»♦#• 

•  •»••••#••♦ 

•  •  ••••♦♦••• 


>  N 


Figure    5    -       N    BY    M    DOT    MATRIX    SCREEN    REPRESENTATION 
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figure    6   -      DISPLAY    SURFACE    DIMENSIONS 
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III.   GRAPHICS  SOFTWARE  COMPONENTS 


In  this  section  the  algorithm  for  each  component  was 
briefly  presented  along  with  any  figures  and  general  flow 
charts  which  aided  with  the  explanation.  For  a  detailed 
flow  chart  and  Fortran  program  listing  see  Appendix  A. 


A.   OBJECT  COORDINATE  SYSTEM  -THE  DATA  BASE 


The  description  of  a  3-D  object  with  this  coordinate 
system  allowed  the  user  total  flexibility  in  the  selection 
of  a  convenient  system  of  measurement  and  origin  placement. 
Additionally,  the  user  selected  the  viewpoint,  which 
determined  the  viewing  axis  and  thus,  the  initial  viewing 
aspect.  The  viewing  axis  was  the  line  defined  by  the 
viewpoint  and  the  object  system's  origin. 

Image  definition  started  with  the  specification  of  its 
vertices.  As  each  vertex  was  input  to  the  computer,  it  was 
assigned  a  consecutive  index  number.  Similarly,  as  the 
other  sets  of  image  elements  (edges,  polygene,  and  polyhera) 
were  input,  they  were  consecutively  indexed  also.  The  x,  y, 
and  z  object  coordinate  vales  were  stored  in  three  real 
arrays,  XE(i),  YE  (i) ,  and  ZE  (i)  .  Integer  arrays  were  used 
to  store  indices  decriting  edges,  polygons,  and  polyhedra. 
An  edge  was  described  by  storing  the  index  of  one  vextex  in 
EDGE1  (i)  and  the  second  in  EDGE2(i).  A  polygon  was  defined 
by  storing  the  indices  of  the  edges  which  composed  its 
toundry  in  the  array  POLYGN(i,j).  The  indices  of  these 
edges  must  be  input  so  that: 
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{EDGE1  (i)  OR  EDGE2(i)}  =  {EDGEl(i+1)  CB  EDGE2(i+1)} 

Ihe  polygons  which  described  a  polyhedron  were  input 
consecutively  to  reduce  storage  reguiraments.  Thus,  a 
polyhedron  was  described  by  storing  the  index  of  the  first 
and  the  last  polygon  in  the  array  P0LYHE(i,2).  This  data 
structure  allowed  excellent  imace  flexibility,  since  any 
polyhedron  could  be  rotated,  scaled,  or  translated  without 
altering  the  remaining  display. 


E.   IMAGE  SCALING 


The   scaling   transformation  multiplied  the  object  x,  y, 

and   z   values   by  the  scale   factors   S  ,   S  ,    and   S 

x    y  z 

respectivley .   If   the  scale   factors  used  were  not  egual, 

image  distortion  resulted. 

[X'  Y1  Z«       [X  Y  Z  1]  S,  where  S  =   S   0   0   0 

x 

0  S   0   c 

y 
o  o  s  c 

z 
0   0   0   1 


C.   TRANSLATION 


The   translation   of  an  image,   in  object  coordinates, 

represents  the  physical  movement  of  a  3-D  object  in   the   x, 

y,   or   z   directions   by   the   amounts   T  ,   T  ,   or   T    , 

x    y  z 


respectively   (or   any  combination  of   the   three) . 
transformation  T  can  be  stated  in  matrix  form  as: 


The 
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T  = 


10  0  0 
C  1  0  0 
C    0    1    0 


-1   -1   -T 
x    y    z 


1 


D.   IMAGE  ROTATION 


The  rotation  of  a  3-D  object  was  fcrcken  into  four 
distinct  categories.  Each  involved  the  rotation  of  the 
image  through  an  angle,  theta,  about  an  axis  in  object 
coordinates.  The  following  axes  of  rotation  define  the  four 
categories: 

1  •   X^ A x is  flotation 

The  image  was  rotated  about  the  X-axis  through  the 
angle  theta.  The  angle  was  measured  in  the  clockwise 
direction  abcut  the  origin,  looking  towards  the  origin  from 
the   positive   X- infinity.    The 


transformation,   R  ,   was 

x 


defined  as: 


x 


1 


0 


0 


C  cos  €  -sin  9  0 
0  sin  6  cos  9  0 
C     0     0      1 


2-   IzAxis  Rotation 

The  image  was  rotated  through  the  angle  theta   abcut 
the   Y-axis,  where  the  angle  was  measured  as  stated  abcve  in 


35 


1.    looking   from      positive      Y-infinity.      The        transformation 
isatrix  fi    ,    was   defined   as: 


fl     = 
y 


cos   e  0      sin  e  0 

0  10  0 

-sin   ©  0      cos   3  0 

0  0  0  1 


3.   Z-Axis  Rotation 


The   image   was  rotated  about  the  Z-axis  through  an 

angle  theta,  which   was  measured  as   above   from   positive 

Z-infinity.   The   transformation  matrix  R   was  defined  as: 

"*z 


1  r 

z 


cos  0  -sin  ©   0    0 

sin  9   cos  e   0    0 

0      0  10 

0      0  0     1 


*  •   Jfl  ilbitra r.y  Axis  of  Rotation 

The  rotation  of  an  image  about  an  arbitrary  axis 
reguired  that  the  set  cf  transformations  belcw  be  performed 
en   the   image's   object   coordinates.   Except  for  R  ,    these 

transformatiens  were  necessary  to  move   the   arbitrary   axis 

into   an   axis   for  which  a  rotation  algoritm  (1.,  2.  and  3. 
above)  already  existed. 

The  arbitrary  axis  was  specified  by  any  two  distinct 

points  en  it,  (x#yrz)  and  (x'j'jZ').   The  direction  ccsines 

for  the  axis,  a  ,  b  ,  and  c  ,  were  found  by: 

x   y       z 
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a   =  (x'-x)/R,    b  =  (y^yy/R,    c   =  (zf-z)/R,  where: 
x  y  z 


=  i/(x'-x)  2  +  (y'-y)  2  +  (z'-z) 


Cne  cf  the  points,  (x,y,z),  was   translated   tc   the 
origin  using  the  transformation  T,  where: 


T  = 


10   0   0 

0   10   0 

0   0   10 

-x  -y  -z   1 


Now,  the  arbitrary  axis  was  rotated  into  the  Z-axis, 
by  first  rotating  it  about  the  X-axis  through  the  angle 
alpha,  as  shewn  in  Figure  7.   This  transformation,  R  ,  which 

placed  the  arbitrary  axis  in  the  X-Z  plane,  was  defined  as: 


R   = 
"1 


1 


0 


0  cos  OS  -sin  (y  0 
0  sinCV  cosCV  0 
0  0  0  1 


,    where: 


cos  OC  -   c  /v 
z 

sinCC   =   -b  /v 

y 


-  V 


b2     +C2 


The  arbitrary  axis  was  then  rotated  about  the  S-axis 

through  an  angle  beta,   as   shewn  in  Figure   8,   intc   the 

Z-axis.   This  transformation  matrix,  R  ,  was  described  as  : 

"2 
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R   = 
~2 


v   0   a   0 
x 

0   10   0 

-a   0   v   0 
x 

C   0   0   1 


The  rotation  atout  the  arbitrary  axis  through  the 
angle  theta  was  now  defined  as  a  rotation  about  the  Z-axis. 
Ihus,  the  transformation,  R  ,  was  exactly  as  described  in  3. 

above   for   E  .    The  remaining   task   was   to  return  the 

z 

arbitrary  axis,  and  the  image,  back  to  its  original   spacial 

position.    Ihis   was   accomplished  by  multiplying  with  the 

inverse  of  the  transformations  T,  R  ,  and  E   in  the   reverse 

-  —\  "2 

crder.    Using   the   principle  of  concatenation,  the  total 
transformation  may  be  stated  as  : 

-1      -1      -1 

R=TERRR         R         T 
"T 1   "2    ~3   ~2      ~1      ~ 
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fax,  by,  C*) 


V=Vb^  +  C 


2 


Qt=36d-<p 


— *y 


Figure    7  -      ROTATION    INTO    X- Z    EIANE 
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(Ox,o,v) 


\ 


Figure    6  -      ROTATION    INTO    Z-AXIS 
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E.   COORDINATE  TRANSFORMATIONS 


To  display  a  3-D  otject  on  a  2-D  screen,   a   perspective 

projection   was  performed  so  that  an  object,  such  as  a  cube, 

when  viewed  crthographically  (as  on  the   screen)   gave  the 
proper  preception  of  a  3-D  form. 


1«   QJ2iSCt  to  Fye  Coordinate  Transformation 

The  left-handed,  Eye  coordinate  system  was  utilized 
to  determine  the  proper  perspective  view  of  any  object.  To 
eliminate  the  extremely  complex  viewing  angle  computations 
incurred  by  placing  the  observer  close  to  the  object  (i.e. 
in  the  near  field) ,  the  viewer  was  located  an  infinite 
distance  frcm  the  object  coordinate  origin  en  the  viewing 
axis.  This  allowed  the  rays  emanating  from  an  observers  eye 
to  all  be  parallel  to  the  viewing  axis,  the  Z  -axis,  at   the 

€ 

cbject.    Parallel   viewing   rays  allowed   an  orthographic 

projecticn  of  the  3-D  cbject  onto  a   2-D   screen   with   the 

Z  -axis  representing  viewing  depth.   The  X   and  Y   axes  were 
e  e      e 

then  aligned   with   the  screen's  horizontal  and   vertical 

dimensions,   respectively.    The   eye   coordinate  system,  as 

shown  in  Eigure  9,  preserved  the   linearity   of   the   image. 

The   transformation   from   the   object  to  the  eye  system  was 

called  the  viewing  transformation,  7,  and  was  defined  as: 

[X   Y   2   1]  =  [X  Y  Z  1]  V,  where; 

e   e   e 

V  =  T   T   T   T 
"1  ~2  ~3  "U 
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Figure  9  -   EYE  COORDINATE  SYS1SM 
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Prior  to  this  first  coordinate  transformation,  the 
object  coordinate  values  for  the  vertices  were  placed  in  the 
arrays  XS(i),  YS(i),  and  ZS  (i) .  These  arrays  were  used  to 
generate  the  displayable  information  by  the  clipping,  hidden 
line  removal,  or  hidden  surface  removal  algorithms.  This 
prevented  the  original  object's  description  from  fceing 
destroyed  or  altered  in  these  three  procedures  and  allowed 
the  graphics  package  to  subsequently  present  different 
viewing  aspects.  Additionally,  since  clipping  could  remove 
an  entire  edge,  the  vertex  indices  were  stcred  in  EDGE  (2, i) 
as: 

EDGE(1,i)  =  EDGE1  (i)    and    EDGE  (2, i)  =  EDGE2  (i) 

The  transformation  matrices  specifying  V  were  formed 

as  shown  telcw  when  the  viewpoint  was  located  at  (a,b,c)  (in 

object   coordinates)   and  the   object   was   centered  at  the 

crigin.   Transformation  T   translated. the  viewpoint   tc   the 

"1 

origin  by  : 


T   = 
*1 


10   0   0 

0   10   0 

0   0   10 

■a  -b  -c   1 


A  left-handed  cartesian  coordinate  system  was  formed 


with  T  ,  where: 
2 


T   = 
"2 


10   0  0 

0   0-1  0 

0   10  0 

C   0   0  1 
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Figure  1C  -   VIEWING  TRANSFORMATION 
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As      shown  in  Figure  10,  the  system  was  rotated  atout 

the  Y  -axis   through   the   angle   theta   which   pointed   the 
e 

Z  -axis   at   the   point   (0,0,0).   The  transformation  T   was 
€  "3 

specified  as  : 


~"3 


ccs  G   0  sin  6   0 

0     1  0     C 

sin  €   0  ccs  9   0 

0     0  0     1 

cos  6   =  a/v  ,  sin  8  =  b/v 

v  =  Va2  +  b2 


where 


Next,   the   coordinate   system  was  rotated  about  the 

X  -axis  through  the  angle  phi,  as  shown  in  Figure  11.    This 

e 

pointed  the  Z  -axis  towards  the  object  space  crigin,  where: 
e 


T   = 

4 


0     0     0   ,  for 

cos  0  -sin  0  0 
0  sin  0  cos  0  0 
0    0     0      1 

cos  0   -   v/(v2+c2)  ,    sin  0   =  c/ (v2  +  c2) 

4 

This  transformation  arbitrarily  selected  the  viewing 

axis  as  the   line   between   the   viewpoint   and   the   object 

coordinate   axis.   It   also  placed  the  X  -axis  in  the  object 

e 

systen^s  Z  =  c  plane.   Since  the  object   coordinate   system 

was   user   defined  the  logical  initial  viewing  aspect  was  to 
look  at  the  system's  orgin  cr  center.   The  initial  view   due 
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to   the  fcsition  of  th€  X  -axis  was  acceptable  and  basically 

e 

irrelevant  since  the  image  cculd  be  rotated,  translated,   or 
scaled  tc  provide  any  desired  viewing  aspect. 
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Figure  11  -   Z  -AXIS  ROTATED  ICWARES  ORIGIN 


HI 


2.   lYJ  to  Screen  Coordinate  Transformation 

This   transformation   completed    the    perspective 

projection   of   the  3-E  object  onto  the  screen.   As  shewn  in 

Figure  12,  the  display  was  generated  by  siuply  projecting  an 

objects   eye   coordinates   onto   the  plane  cf  the  screeen. 

5 

For  a  square  display  screen,  one  with  egual   horizontal   and 

vertical   resolution,   the   image   was   constructed   without 
distortion,  ty  the  following  transformation: 

X   =  S   (X  /Z  )  V   ♦  V   ,  where  S   =  a/b 
s    x   e   e   sx    ex         x 

Y   =  S   (Y  /Z  )  V   +  V   ,  where  S   =  a/b 
s    y   e   e   sy    cy         y 

Z   =  -1/Z 

s       e 


If  the  viewing  screen  was  not  square  then  S   and   S 

x       y 

were  modified  as  shown: 


If  V   >  V   then  S   =  (a/b)  (V  /V   ) 
sx    sy       x  sy   sx 

If  V   >  V   then  S  =  (a/b)  (V  /V   ) 
sy   sx       y  sx  sy 

This  modification  was   necessary  so   that   an   un-distorted 

image   cculd  be  displayed  over  an  entire  rectangular  screen. 

Without  it  one  display  dimension,  typically  the   horizontal, 
would  have  teen  elongated. 
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Figure     12    -       PBOJECTION    OF    DISPLAY    POINTS    ONTO    SCEEEN 
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f.   DISPLAY  CLIPPING 


The  clipping  procedure  constructed  a  viewing  pyramid 
yhich  eliminated  the  undesirable  effects  of  the  perspective 
projection  from  object  to  screen  coordinates,  which  were: 

1.  points  and  thus  objects  may  have  been  located  behind 
the  viewpoint; 

2.  and  objects  may  have  exceeded  the  limits  of  the 
viewpoint  (i.e.  were  located  off  the  screen  -  were 
non-displayable) . 

The  clipping  of  an  image  was  performed  on  the  image1 s  data 
while  it  was  expressed  in  eye  coordinates  tc  simplify  the 
operation  (as  explained  in  Ref.  [1]). 

As  shown  in  Figure  13,  the  geometry  cf  the  viewing 
pyramid  dictated  that  for  a  point  to  be  visible  the 
following  conditions  must  be  satisfied: 


-Z  <  S   X  <  z 
e    x  e    e 

-Z  <  S   Y   <  Z 
e     ye     e 


(D 
(2) 


Thus,    a   transformation   from   eye   coordinates   tc   a 
"clipping"  coordinate  system  was  described  as: 


[X       Y       Z       1]    =   [x      Y      Z      1]    N    , 
c      c      c  e      e      e 


wnere : 


N   = 


a/b      0  0      0 

0  a/b  0      0 

0        0  10 

0         0  0      1 
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Figure    13   -      CLIPPING    COORDINATES 
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Figure  14  -   DISPLAY  SCREEN  DIVISION  AND  CODING 
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This  cccidinate  system  was  established  tc   display   only 

viewable   points.   Additionally,   if   an  edge's  endpcirt  was 

located  outside  of  the  viewirg  pyramid,  this  routine  located 

a   point   on   the  edge  which  satisfied  equations  (1)  and  (2) 

above  and  became  the  new  endpoint.   By  dividing  the  plane  of 

the   screen,  the  X  -Y   plane,  into  nine  sectors  (Figure  14) , 

s  s 

the  location  of  the  twc  verticies  of  an  adge  was   determined 
using  the  inequalities  (1)  and  (2). 

Since  a  vertex  can  be  used  as  an  endpcint  of  several 
edges,  the  clipping  procedure  placed  the  x,  y,  and  z  values 
of  the  two  endpoints  into  the  arrays  X  (2)  ,  2(2),  and  Z  (2)  , 
respectively,  as  each  edge  was  examined.  Thus,  if  new 
endpoints  had  to  be  computed  for  this  edge,  the  values  of 
the  original  verticies  were  not  destroyed.  Since  Fortran  IV 
did  not  support  binary  operations,  an  integer  array, 
ICHK  (2,4),  was  used  to  code  the  location  of  each  endpoint  as 
fellows: 

If  X(i)  <  -Z(i)  then  ICHK(i,1)  =  1  else  ICHK(i,1)  =  0 

If  X  (i)  >   Z(i)  then  ICHK(i,1)  =  1  else  ICHK(i,1)  =  0 

If  Y(i)  <  -Z(i)  then  ICHK(i,3)  =  1  else  ICHK(i,3)  =  0 

If  Y  (i)  >   Z(i)  then  ICHK  (i,4)  =  1  else  ICHK(i,4)  =  0 

If  both  endpoints  were  displayable,  no  action  was  taken 
and  the  next  edge  was  examined.  If  both  vertices  were  to 
the  right  of  the  viewing  pyramid  (or  both  to  the  left,  or 
both  above,  cr  both  below) ,  the  entire  edge  was  deleted  from 
the  display  (i.e.  if  ICHK(1,j)  =  ICHK  (2, j)  =  1  then  discard 
the  edge) .  Until  both  endpoints  were  displayable  or  the 
edge  could  be  rejected,  new  points  had  to  be  computed  en  the 
edge.  This  computation  has  often  been  termed  "pushing"  the 
endpoint  towards  the  display  area.  The  pushing  cf  the 
endpoint  was  accomplished  by  utilizing  the   3-D,   parametric 
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representation  of  a  line  to  select  that  point  where: 

IX  |  *  |Z  |  if  inequality  (1)  was  not  satisfied: 
c      c 

OR 

IH  =  IZ  I  if  eneguality  (2)  was  not  satisfied, 
c      c 


If  ineguality  (1)  was  violated,  the  following  sets  of 
equations  ar€  used  to  compute  the  new  endpcict: 

If  X  (1)  <  -Z(1)  :  then: 

t=  [Z(1)+X(1)  ]/£[X(1)-X(2)  ]-[Z(2)-Z(1)  ]} 

Z  (1)  ■  t  *  [Z(2)-Z(1)  ]  +  Z(1) 

X(1)  =  -Z(1) 

2  (1)  =  t  *  [I(2)-Y(1)  ]  +  Y(1) 

If  X (1)  >  Z (1)  then: 

t  =  [Z(1)-X(1)  ]/££X(2)-X(1)  ]-[Z(2)-Z(1)  ]} 

Z(1)  =  t  *  [Z(2)-Z(1)  ]  +  Z(1) 

X<1)  =  Z(1) 

Y  (1)  =  t  *  [  Y  (2)-Y  (1)  ]  +  Y  (1) 

When  inequality  (2)  was  violated,  the  equations  used  to 
compute  the  new  point  were  those  above  with  every  X  replaced 
with  a  Y  and  vice  versus. 


G.   HIDDEN  LIME  REMOVAL 


The  method  utilized  to  remove  hidden  lines  from  3-D 
objects  was  developed  by  John  Warnock  at  the  University  of 
Utah.  The  program  was  interpreted  from  a  SAIL  program 
listed  in  Ref.[1].  This  procedure  required  that  the  object 
coordinates  be  transformed  to  eye  and  then  to  screen 
coordinates  without  any  intervening  clippirg  of  the  image. 
Ihe  algoritm  was   broken  into   three   main   sections,   the 
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Looker,  the  Thinker,  and  the  Controller.  The  storage  cf  the 
vertex  indices  in  the  array  EDGE  (2,  j)  was  re-structured  so 
that  the  index  of  a  polygon's  first  edge  cculd  be  used  to 
link  to  the  index  of  its  second,  and  its  seccnd  could  link 
to  the  third  edge,  etc.  Thus,  an  initializing  subroutine 
linked  each  polygon's  edges  in  the  array  EDLINK(i). 

The  concept  of  linked  lists  uses  the  index  of  edge  i  to 
produce  the  index  of  the  next  edge  for  the  same  polygon. 
Since  an  edge  could  be  common  to  two  polygon's,  the  first 
polygon  tc  link  the  edge  i  found  the  storage  location 
EDLINK(i)  unused.  This  first  polygon  stored  the  index  of 
its  next  edge,  j,  in  EELINK  (i) .  Because  twc  polygons  can 
have  at  most  one  edge  in  common,  the  second  polygon  tc  link 
edge  i,  could  not  use  this  same  storage  location,  EDLIKK(i). 
Therefore,  the  number  of  edges,  called  edgem,  was  increased 
by  one  and  the  vertices  for  edge  i  were  also  stored  as 
shown : 

EDGE  (1  ,EEGEM)  =  EEGE(1,i) 
EDGE  (2, EDGEM)  =  EEGE(2,i) 

Additionally,  the  storage  location  EELINK (EDGEM)  was 
used  to  stcre  the  index  of  the  next  edge  for  this  second 
polygon.  This  ordering  usually  doubled  the  storage 
requirements  for  edge  definition.  The  vertex  indicies  were 
further  ordered  in  the  array  EDGE  (i, j) ,  so  that: 

EDGE  (2, j)  =  EDGE  (1, j+1) 

The  data  was  structured,  using  linked  lists  (integer 
arays)  and  pointers  to  the  first  element  cf  the  list,  as 
follows: 

1.  POLLNK-a   list   of   polygon   indices  ordered  ty  the 
polygon  closest  tc  the  viewer  with  pointer  POLPTR  ; 

2.  POLEDG-   contained  the  indices  of  the  first  edge  of 
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each  polygon.   The  pointer  used  was  the  polygons  index; 

3.  EDLINK-contained  the  linJced  list  of  edges.  The 
pointer  to  a  polygons  second  edge  was  the  index  of  its 
first  (fcund  in  PCIEDG) ; 

4.  FOLLST-a  list  of  polygons  which  were  determined  by 
the  Locker  to  be  either  surrounders  or  intersectors 
(which  are  explained  below) .  The  pointers  to  the  list 
were  SUBRND  and  INTER. 

An  example  of  the  usage  of  these  linked  lists  was 
provided  belcw: 

INTER  was  the  last  polygon  (index)  added  tc  the 
list  of  intersectors  and  thus,  was  at  the  head  cf  the 
list. 

POLLS! (INTER)   =   F,   where  P  was  the  index  cf  the 

second  polgon  on  the  intersectors  list. 

POIEDG(P)   =  E  ,   where   E   was  the  index  cf  the 

1  1 

first  edge  for  polygon  P. 

EDIINK(E  )  =  E  ,  which  was  the  index  of  the  second 

I  2 

edge  fcr  pclygon  P. 

EDGE(1,E  )   =  V   and  EDGE(2,E  )  =  V  ,  where  1      and 

II  12  1 

V   were  the  indices  of  the  two  vertices  discribinq  edge 
2 

E  . 
1 

The  ccncept  of  linked  lists  was  utilized  extensively  for 
both  the  hidden  line  and  hidden  surface  reaoval  routines. 
In  this  proceedure,  a  display  window,  which  was  initially 
the  entire  screen,  was  examined  against  each  polygon.  Each 
window  could  be  classified  as: 

1.  nothing  was  contained  in  this  window; 

2.  the  information  contained  in  this  window  was  simple 
and  could  be  displayed; 
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3.   cr  the  information  contained  in  the  window  was   too 

complex . 
Situations  1.  and  2.  resulted  in  a  successful  processing  of 
the  windcw.  The  next  window  on  the  stack  could  then  be 
examined.  The  last  classification  was  a  failure  and  caused 
the  window  to  be  divided  into  four  windows  of  equal  size. 
Ihese  new  windows  were  then  pushed  onto  the  stack. 

The   first  important  element  needed  tc  piccess  a  display 

window  was   the   computation   of   the   depth   of   the   plane 

determined   by   a  polygon  at  the  four  corners  of  the  windcw. 

Ihe  planar  eguation  can  be  stated  as: 

Ax  +  Ey  +  Cz  ♦  D  =  0 

The  coef f icients,  A,  B,  C,  and  D,  can  be  found  from   the   x, 

y,   and   z  values  of  any  three  pcints  contained  in  the  plane 

which  are  not  colinear.   Since  the  corners  of  a   window  are 

specified  as   X   and  Y   values  in  screen  coordinates,  the 

s        s 

depth  of  the  polygon  was  computed   by   simple   substitution 
into  the  plane  eguation. 

The  last  important  concept  needed  to   prccess   a   window 

was  the  classification  of  each  polygon  as: 

1.  an  intersector  of  the  window; 

2.  a  surrounder  cf  the  window; 

3.  or  disjoint  from  the  window. 

Ihese   concepts   are   clearly   portrayed   in  Figure  15.   The 
classification  of  all  polygons  was  performed  by  the   Looker. 

To  determine  whether  a  polygon  was  an  intersectcr,  it 
was  sufficient  to  find  any  one  of  the  polygon's  edges  which 
intersected  the  window.  This  deter minaticn  was  made  ty  a 
clipping  subroutine,  which  was  very  similar  tc  that  in  F. 
If  none  of  the  edges  intersected  the  window,  the  polygcn  was 
determined  tc  be  a  surrounder  or  disjoint  frcm  the  window  by 
computing   the   angle   "about   the  window  through  which  each 
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edge  passed."    The  sum  of  these  angles,  as  all  edges  of   a 

polygon   were   processed,   would   equal  ±360  degrees,  if  the 

polygon  was  a  surrounder  of  this  window,  as  shown  in   Figure 

16.    The   actual   computation   of   each   edge's   angle   was 

implemented  ty  dividing  the  X  -Y   plane  into  nine   sectors, 

s   s 

as  shown  in  Figure  17.   The  window  was  located  in  the  center 

region,  and  the  outer  eight  regions  were  numbered  as 
shown.  The  endpoints  were  located,  just  as  in  the  clipping 
routine  in  F.  ,  and  assigned  the  proper  sector  number. 

The  edge's  "angle"  was  the  number  of  sectors  which  an 
edge  entered,  not  counting  the  sector  of  the  first  endpcint. 
A  polygon  which  surrounded  the  window  had  an  "angle"  of  ±  8, 
and  a  disjoint  polygon  had  a  zero  angle.  Extremely  complex 
polygons  could  have  an  angle  equal  to  ±  16,  or  higher 
multiples  of  eight,  by  surrounding  the  window  two  or  more 
times.  However,  usage  of  such  complex  polygons  was 
unnecessary  to  construct  any  image.  Because  the  incremental 
angle  (  )  was  defined  as  the  difference  between  the 
sector  values  of  the  two  endpoints,  one  problem  of  computing 
an  edge's  angle  occurred  when  the  magnitude  was  greater  than 
four.  Since  no  linear  edge  could  enter  mere  than  four 
sectors  (starting  from  the  sector  of  the  first  endpcint) , 
the  edge's  angle  was  adjusted  when  the  magnitude  was  greater 
than  four  by  : 


If  £\(X  >  4  then  A#  =  Act  -    8 

if  A&  <  -4  then  Act  -  Aoc  *  8 
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Figure     15    -      POLYGONAL    CLASSIFICATIONS 
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Figure    16    -      EDGES'S    ANGULAR    COMPUTATION 
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Figure  17  -   DISPLAY  AREA  DIVISION  AND  CODING 
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The  last  angle  computational  problem  cccured  when  the 
magnitude  was  equal  to  four,  as  shown  in  Figure  18.  The 
correct  sign  in  this  situation  was  not  rendered  by  taking 
the  difference  of  the  two  sector  values.  Counter-clockwise 
rotation  or  movement  about  a  polygons  edges  should  have 
yeilded  a  positive  result.  The  problem  was  resolved  by 
selecting  any  point  between  the  two  endpoints  which  was  not 
in  either  of  the  vertices'  sectors,  as  shown  in  Figure  19. 
Ey  dividing  the  edge  at  this  point,  the  correct  angle  could 
be  computed  by  summing  the  angles  of  these  "two  edges". 
Ihis  angular  computation  fcr  an  edge  was  determined  in  the 
clipping  subroutine  used  by  this  proceedure. 

The  linked  lists  of  the  classified  polygons  were  then 
passed  to  the  Thinker.  The  surrounder  list  was  processed 
first  to  determine  which  pclygcn  was  closest  to  the  viewer 
by  computing  the  depth  of  each  of  these  polygons  at  the  four 
window  ccrners,  as  shown  in  Figure  20.  Provided  the  closest 
polygon,  called  the  hider,  was  not  penetrated  by  another 
polygon,  these  four  depths  were  used  to  determine  if  an 
intersector  polygon  was  located  completely  in  front  of  the 
hider  within  the  confines  of  the  display  window.  If  an 
intersector  was  completely  hidden  from  the  viewer  by  the 
hider,  it  was  removed  from  the  list.  If  the  final 
intersector  list  contained  only  one  polygon,  then  that  part 
of  the  polygon's  edges  which  were  inside  the  window  were 
displayed.  If  the  list  contained  more  than  cne  intersector, 
or  if  any  intersector  polygon  penetrated  the  plane  of  the 
hider,  the  Thinker  announced  failure  for  that  window.  If 
the  hider  was  penetrated  by  ancther  surrounder,  the  Thinker 
announced  failure  before  examining  the  intersector  list. 
Ihe  penetration  of  cne  polygon  by  ancther  was  shewn  in 
Figure  21.  Whether  polygon  E  would  be  classified  as  an 
intersector  or  a  surrounder  penetrating  polygon  A  would 
depend  on  the  placement  of  the  window.   When  the   complexity 
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of  the  display  could  not  te  resolved  and  the  size  cf  the 
window  had  been  reduced  to  the  display  device's  smallest 
resolution/  a  dot  was  displayed  at  the  window's  lower,  left 
corner.  In  this  manner,  the  penetration  of  cne  polygon  by 
another,  which  described  a  line,  was  displayed  as  an  inplied 
edge. 

If  failure  was  announced,  and  the  size  cf  the  window  was 
larger  than  the  smallest  resolution,  the  display  window  was 
divided  into  four  equal  windows  and  pushed  onto  the  top  of 
the  stack.  The  Controller  then  selected  the  next  window  on 
the  stack  aDd  passed  it  to  the  Looker.  This  entire  process 
was  summarized  by  the  flow  chart  in  Figure  22. 
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Figure  18  -   ANGLE  MAGNITUDE  CF  FOUR 
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Figure    19    -      EDGE    DIVISION    FCR    PROPER    ANGIE    COMPUTATION 
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Figure  21  -   PCLYGCNAL  PENETRATION 
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HIDDEN  SURFACE  REMOVAL 


The  algorithm  utilized  for  this  procedure  was  developed 
by  G.  S.  Watkins  at  the  University  of  Utah.  The  program  was 
interpreted  from  a  SAIL  program  presented  in  Ref.  [ 1 ]. 
While  the  hidden  line  removal  algorithm  concentrated  on 
linked  lists  of  polygons,  the  hidden  surface  algorithm 
processed  the  display  with  lists  of  edges.  Addit iorally, 
the  vertices  had  to  be  expressed  in  clipped,  screen 
coordinates.  Although  the  user  still  generated  the  data  for 
an  image  as  stated  in  A. ,  this  procedure  displayed  the 
polygonal  surfaces  as  a  solid  plane  using  shading  or  cclcrs. 
Thus,  a  3-D  object  should  become  much  more  realistic  when 
displayed  with  shaded  surfaces  vice  wire  frames.  While  the 
algorithms  presented  previously  in  section  III.,  can  be 
utilized  on  any  display  device,  this  concept  was  developed 
specifically  for  raster  scan  CRT's. 

A  raster  scan  is  a  special  type  of  CRT,  which  is  very 
similar  to  the  television  in  most  homes.  The  vectored  CRT's 
and  the  direct  view  storage  tubes  generate  a  display  by 
pointing  an  electron  beam  to  a  desired  location  on  the 
display  screen  and  then  moving  it  to  any  other  screen 
location.  This  process  illuminates  the  phosphorous  screen 
to  produce  a  single  line  segment.  The  typical  television 
receives  an  analogue  broadcast  signal  which  generates  a 
single  ^horizontal  line  of  the  screen* s  image  at  a  time.  At 
the  end  of  each  line  a  horizontal  sync  pulse  is  received  to 
move  the  electron  beam  down  one  line,  and  tc  the  left-hand 
edge.  When  the  last  horizontal  line  has  beer  displayed  a 
vertical  sync  pulse  moves  the  beam  to  the  top,  left-hand 
corner  of  the  screen.  Since  the  phosphorous  screen  remains 
illuminated  a  very  short  time,  the  image  must  be  constantly 
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refreshed,  typically  at  a  rate  of  thirty  times  per  second. 

A  raster  scan  display  device  receives  its  image  (and 
refresh)  information  from  random  access  memory  (RAM)  refresh 
planes  where  the  image  is  stored  as  a  sequence  of  individual 
tits.  Each  bit  of  a  memory  plane  determines  the 
illumination  of  a  single  element  on  one  horizontal  dislay 
line  (also  called  a  scan  line  or  a  raster) .  A  picture 
element,  called  a  pixel,  is  the  smallest  screen  resolution 
size.  The  standard  sixteen  level  grey  shading  requires  four 
bits,  one  bit  on  four  planes,  to  represent  the  shading  of 
one  pixel.  Similar  memory  requirements  are  needed  to 
display  an  image  with  sixteen  colors.  While  the  vectored 
CBT's  have  acheived  resolutions  on  a  display  screen  of  4096 
lines  with  4096  elements  per  line,  the  finest  resolution 
available  with  raster  scan  devices  is  1024  by  1024.  Thus,  a 
sixteen  color,  raster  scan  display  with  high  resolution 
required  four  million  bits  of  RAM.  Eecause  of  this 
extensive  memory  requirement,  the  developement  of  this  type 
of  display  device  followed  that  of  the  small,  lower  cost 
electronic  memory. 

As  shewn  in  Figure  23,  the  intersection  of  the  plane  of 
a  scan  line  with  a  polygon  was  a  line  segment.   (Scan  line  k 

corresponds  to  the  Y    =   k   plane.)    This   line   segment's 

s 

endpoints   were  defined   by   its  Xleft,  Zleft,  Xright,  and 

Zright  values,  which  were  the  X  and  Z   coordinates  of  the 

s      s 


in 


tesecticn   of   the   scan   line   with   two  of  the  polygon's 


edges.   The  two,  2-D  equations  below  were  used  to   find   the 
intersection  of  an  edge  with  each  scan  line. 

X   =  a  Y   +  b    (1) 

s      s 

Z   =  c  Y      +  d    (2) 
s      s 
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The  ccef ficients,  a,  b,  c,  and  d,  were  quickly  obtained 
using  the  equations  for  a  2-D  line  with  the  coordinates  of 
the  two  vertices  describing  each  edge. 

With  these  equations  the  X  and  Z  values  of  the 
intersection  of  an  edge  with  scan  line  k+1  was  the  values  at 
scan  line  k  plus  their  respective  slopes,  a  and  c.  Since 
each  edge,  and  thus  each  segment,  sustained  only  an 
incremental  change  between  scans  lines,  the  display  was  also 
assumed  to  remain  constant  between  scan  lines.  This  scan 
line  coherence  of  the  display  was  used  to  decrease  the  time 
required  to  process  an  image. 

To   process  each  scan  line,  it  was  necessary  to  divide 

the  line  intc  spans  which  could  be  more   easily   resclved. 

The   content   of   a   span   cculd  be  categorized  as  shewn  in 
Figure  24  and  as  described  below: 

1.  "The  span  contained  only  one  segment. 

2.  Cne  segment  was  closer  to  the  viewer  than  all 
others  and  it  was  a  spanner.  A  spanner  was  a  segment 
where  Xleft  <  Span  left  and  Xright  >  Span  right,  as 
shewn  in  Figure  24. 

3.  There  was  a  simple  intersection  cf  the  only  two 
segments  in  the  span,  and  both  were  spanners.  This 
span  was  divided  at  the  intersection  intc  two  spans  and 
processed  as  in  1. 

4.  The  display  was  too  complicated  in  this  span  so  it 
was  divided  at  the  left-iost  segment  endpoint,  or  at 
the  spans  mid-point  if  there  was  no  endpoint.  The  new 
spans  were  then  processed." 

Since  the  lower,  left-hand  corner  of  the  raster  scan 
machine  at  the  Naval  Postgraduate  School,  the  RAMTEK,  was 
indexed  as  (0,0)  each  edge  was  ordered  so  that  the  index   of 
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the   vertex   with   the  largest   Y   value   was  stored   in 

s 

EDGE(1,i).   Ihe  integer   value   formed   by   truncating   this 

vertice's   Y   value   determined  the  first  scan  line  that  an 

edge  would  enter  the  display.   A  linked  list  cf  the  incicies 

of  the  edges  which  entered  on  each  scan  line  was  stored  in 
the  array  ENlLST(i).  Ihe  index  of  the  first  edge  to  enter 
en  scan  line  k  was  stored  in  YENTER(k) . 

As  each  edge  entered  the  display,  the  X  and  Z  values  and 
the  scan  line  coherence  factors,  the  slopes  for  equations 
(1)  and  (2) ,  were  computed.  Since  the  object  of  this 
algorithm  was  to  display  polygonal  surfaces,  the  indices  of 
the  current  segments  of  a  polygon  were  linked  in  P01SEG (i)  . 
The  segments  were  ordered  by  increasing  X  values  of  their 
left  endpeint  and  the  first  segment's  index  was  placed  in 
SEGLST(p)  for  polygon  p.  A  segment's  index  pointed  to  a 
block  of  storage  which  defined  the  endpeints  X  and  Z  values 
in  the  arrays  XLEFT(i),  ZLEFT (i)  ,  XRIGHT  (i) ,  and  ZRIGHT  (i) 
and  their  respective  slopes  DXLEFT(i),  DZLEPT (i)  ,  DXRGHT  (i)  , 
and  DZRGHT(i).  Integer  arrays  IYLEFT (i)  and  IYRGHT  (i)  were 
used  to  indicate  when  an  edge,  the  source  cf  one  endpoint  of 
a  segment,  was  exiting  the  display. 

To  properly  insert  an  entering  edge  into  a  polygon's 
segment  lists  required  the  comparison  of  the  edge's  X  value 
for  this  scan  line  to  the  Xleft  and  Xright  values  of  all  cf 
the   active  segments.   If  two  edges  entered  en  the  same  scan 

line  at  the  same  X   coordinate,  as  shown  in  figure   25,   the 

s 

edge   with   the  largest  slope  was  entered  first.   Thus,  to 

enter  the  two  edges   on  scan  line  k+1,   between   the  two 

existing   edges,   a   new  block  of  storage  was  added  for  each 

entering  edge.   As   each  edge   exited   the   scene,   it  was 

removed  from  its  half  of  the  storage  block,  as  shown  on  scan 
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line  k+2  in  figure  25.  After  all  additions  and  deletions 
had  been  performed,  the  list  of  segments  was  sorted  to 
conslidate  storage.  This  entire  process  has  been  portrayed 
in  Figure  26.  As  stated  before,  an  edge  usually  separated 
two  polygons.  To  eliminate  redundant  operations,  the  array 
E(2,i)  was  used  to  store  the  indices  of  the  polygons  ccmmon 
to  edge  i.  linen  an  edge  entered  the  display  and  separated 
two  polygons,  its  values  of  intersection  were  added  to  the 
blocks  of  storage  for  toth  segment  lists. 

This  algorithm  was  divided  into  the  same  three  parts, 
the  Thinker,  the  Looker,  and  the  Controller,  as  the  hidden 
line  routine.  The  looker  compared  all  segments  which 
intersected  a  span  and  developed  sufficient  information  for 
the  Thinker  to  process  it.  Provided  the  contents  of  a  span 
satisfied  the  categories  1  through  3  above,  the  Thinker  was 
able  to  generate  the  data  required  for  displaying  this  span. 
If  the  information  contained  in  the  span  was  too 
complicated,  it  was  divided  by  the  Controller.  The 
sucessful  scan  line  division  points  normally  occurred  at  the 
left-most  endpoint  of  a  segment.  Since  this  division 
point's  location  on  the  next  scan  line  can  te  predicted,  it 
was  stored  and  used  to  decrease  the  time  reguired  to  process 
the  entire  iaage.  The  computation  of  the  X  and  Z  values  of 
a  segments  ecdpoints  and  an  updated,  sorted  list  of  segments 
was  also  performed  by  the  Controller.  This  active  list  of 
segments  was  sorted  in  the  Xsort  lists,  IXSLFT  (i)  and 
IXSEGT(i),  by  increasing  X  values.  These  two  lists  provided 
the  index  of  the  segment  to  the  left  and  to  the  right  of 
segment  i  by: 

k   =   IJSLFT(i)   :   was  the  index  of  the  segment  to  the 

left. 

j   =   IXSBGT(i)   :   was  the  index  of  the  segment  to  the 

right. 
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Figure    25    -      ENTERING    AND    DEPARTING    SEGMENTS 
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The  last  bookkeeping  Task  performed  by  the  Controller 
Mas  to  divide  the  list  of  segments  into  the  following 
categories: 

1.  "SEGOUT-  the  right  edge  of  the  segment  was 
contained  in  this  span.  (This  segment  did  not  appear 
in  any  span  to  the  right  of  this  one.) 

2.  SEGACT-the  right   edge  of   the   segment   extended 

beyond  the  right  limit  of  this  span." 

8 

If  this  span  was  displayed,  then  the  SEGCOT  list  did  not 
need  to  be  considered  in  subsequent  spans  and  could  be 
discarded  (until  the  next  scan  line) .  The  SEGACT  list  was 
automatically  added  to  the  next  spans  active  segment  lists. 
If  the  span  failed  to  be  processed,  the  two  lists  were 
combined  and  compared  to  the  new  span. 

When   the  segment  lists  were  passed  to  the  Looker,  the  X 

and  Z  coordinates  of  the  left-most  and  the  right-most   parts 

of  a  segment  in  this  span  were  computed  (see  Figure  27  where 

the  following  terms  are  portrayed:   sxleft,  szleft,  sxright, 

and  szright) .   A  box  was  constructed  about  the  first  segment 

examined  in  the  X  -Z   plane  which  entirely   surrounded  that 

s   s 

part  of  the  segment  which  intersected  the  span.   As  each  new 

segment  was  compared  to  the  box,  the  box  was  enlarged  to 
include  it.  If  a  segment  completely  hid  the  box  frcm  the 
viewpoint  or  if  it  was  a  spanner,  then  the  count  of  the 
segments  in  the  box  was  reset  to  one  and  the  tox  was  made  to 
enclose  cnly  this  segment.  This  was  shown  in  Figure  28 
along  with  the  definitions  of  the  box  X  and  Z  limits, 
txleft,  bzleft,  bxright,  and  bzright. 
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The  infer nation  passed  to  the  Thinker  was  box  count  and 
box  type.  If  the  box  count  was  zero,  the  Thinker  did 
nothing  and  the  Controller  began  processing  the  next  span. 
A  box  count  cf  one  indicated  a  single  segment  existed  in  the 
span.  The  segment»s  sxleft,  sxright  and  index  were  stored 
with  the  results  of  previous  spans  so  that  the  entire  scan 
line  could  be  displayed  at  one  time.  When  the  box  count  was 
greater  than  one  and  the  box  type  was  equal  to  one,  the  span 
contained  a  simple  intersecticn  of  two  spanners.  Eoth 
segments'  sxleft  and  sxright  values  and  their  indices  were 
stored  with  those  of  previous  spans  for  this  scan  line.  If 
the  box  count  exceeded  one  and  the  box  type  equaled  zero, 
the  Thinker  announced  failure.  The  Controller  then  divided 
the  span  and  began  to  process  the  left  half  cf  the  old  span. 

An  important  element  cf  all  hidden  surface  or  line 
elimination  algorithms  has  been  the  proper  display  cf  an 
implied  edge.  When  the  intersection  of  two  polygons  caused 
an  implied  edge,  this  proceedure  stored  the  value  DIV,  the 
division  pcint  caused  by  two  intersecting  spanners,  en  its 
first  occurence  (see  Figure  29) .  The  occurrence  of  this 
division  on  a  second  scan  line  provided  sufficient 
informaticn  to  compute  its  X  and  Z  scan  line  coherence 
factors.  The  implied  edge  was  then  added  to  a  dummy  segment 
block  and  sorted  with  the  other  segments  in  the  Xsort  lists. 
However,  this  dummy  segment  block  was  net  passed  to  the 
Looker,  but  was  used  to  divide  the  scan  line  into  the  proper 
spans.  When  the  division  point  due  to  an  implied  edge 
divided  the  same  segment,  the  implied  edge  was  discarded.  A 
generalized  flow  chart  was  provided  for  this  algorithm  in 
Pigure  30  to  summarize  this  entire  section. 
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figure  29  -   IMPLIED  EDGE  GENERATION 
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figure    30    -       HIDDEN    SURFACE    REMOVAL    5L0W    CHART 
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I.   IMAGE  SHADING 


An  extremely  important  aspect  of  computer  image  realism 
was  the  generation  of  an  appropriate  shading  algorithm.  The 
realistic  algorithms  required  complex  software  and  thus, 
ncre  computation  time.  Another  alternative  used  has  been  to 
iiplemenr  the  algorithm  with  sophisticated  and  expensive 
hardware.  Although  this  was  one  key  element  to  a  3-D 
graphics  language,  a  software  implementation  would  have 
required  half  again  as  much  reasearch  and  time.  Therefore, 
this  aspect  was  left  for  future  developement .  The  usage  of 
colors  or  shading  for  object  definition  was  input  via  the 
subroutine  INITAL  along  with  the  ether  image  data  (a 
complete  description  was  included  in  Appendix  A) . 
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IV.   HARDWARE  AND  SOFTWARE  CONSIDERATIONS 


The  realistic  implementation  of  a  standard  graphics 
language  throughout  a  large  organization  would  require  that 
the  majority  of  the  software  could  be  input  to  all  host 
computers  with  minimal  alterations  required  for  specific 
display  devices.  Therefore,  the  primary  intent  was  to 
reduce  display  device  dependence  to  the  fewest  number  of 
subroutines.  The  processing  of  a  3-D  display  in  real  time 
was  another  important  consideration.  In  the  following 
sections  the  algorithms  in  III.  were  divided  into  four 
groups  and  their  implementit ion  on  the  display  devices  was 
presented. 


A.   IMAGE  DISPLAYED  -  ALL  LINES  SHOWN 


The  device  dependent  software  which  had  to  be  utilized 
to  display  an  image  and  the  different  screen  cr  display  area 
of  each  machine  were  the  two  non-portable  aspects  of  this 
entire  graphics  package.  Since  the  intent  of  this  effort 
was  to  produce  a  language  which  appeared  to  be  device 
independent  to  the  user,  the  problem  of  various  display 
areas  was  resolved  in  the  image  data  input  subroutine, 
INITAL.  When  more  than  one  display  device  was  supported  by 
a  host  computer,  the  user  had  to  select  the  appropriate 
display  device  number.  INITAL  then  chose  the  correct  line 
and  element  resolution  and  the  location  of  the  display 
area's   center.   The  four  devices  used  in  this  project  were: 

1.   1EK1R0NIX  4012-  a  direct  view  storage  tube; 
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2.  ADAGE  AGT-10-  a  vectored  CRT; 

3.  VERSATEC-  a  hard  copy  device  which  also  had 
electrostatic  shading  capability; 

4.  RAM1EK-  a  raster  scan  CRT. 

The  fcraat  of  th€  data  input  by  the  user  was  stated  in 
the  graphics  language  description  preceeding  INITAL.  The 
required  data  included  the  image  description  as  stated  in 
III.  A.  and  the  following  information; 

1.  a  -  the  distance  from  the  screen  tc  the  viewer; 

2.  fa  -  the  vertical  dimension  of  the  screen; 

3.  the  x,  y,  and  z  coordinates  of  the  viewpoint; 

4.  the  select  display  device  number; 

5.  the  index  of  the  color  table  to  be  utilized  (when 
using  the  RAMTEK)  ; 

6.  and  the  index  of  the  color  or  shading  for  each 
polygon. 

A   complete   explanation  of   the  input  data  was  provided  in 
Appendix  A  with  the  program  listing  of  INITAL. 

Io  display  the  image  as  input  without  removing  hidden 
lines,  the  user  then  had  to  call  the  subroutine  DISELY. 
EISPLY  called  the  subroutines  listed  below. 

1.  RDYCLP-  performed  the  object  to  clipping  coordinate 
transformation  on  the  vertices  and  stored  the  results 
in  the  arrays  XS  (i) ,  YS  (i) ,  and  ZS  (i)  ; 

2.  CLIE-  clipped  the  image  against  the  viewable 
display  area; 

3.  SCRN-  converted  the  clipping  coordinates  to  screen 
coordinates. 

The  image  could  now  be  displayed  by  the  selected  device. 
First,  each  machine  had  to  be  initialized  by  a  single  device 
dependent   subroutine  call.   Next,  the  line  segments  of  each 
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edge,  also  called  vectors,  were  drawn  by  another  device 
dependent  subroutine.  Finally,  all  devices,  except  the 
BAMTEK,  required  a  subroutine  call  which  terminated  the 
image.  The  ADAGE  also  required  an  image  subroutine  which 
developed  a  display  list  of  vectors  which  was  used  to 
refresh  the  display  screen.  Thus,  the  device  dependent 
portions  for  direct  image  viewing  could  typicallj  be 
contained  it  three  subroutines  and  at  most  four  when  a 
display  list  was  required.  The  display  device  was 
initialized  by  the  subroutine  INITAL  and  vectors,  or  line 
segments,  were  drawn  by  DISPLY.  The  graphics  software 
package  was  always  terminated  by  a  call  to  FINISH,  which 
when  required  called  the  device  dependent  subroutine  to 
terminate  the  display. 

The  only  calling  parameter  which  was  reguired  for  EISPLY 
was  a  two  element  integer  array,  IR(2),  which  was  used  tc: 

1.  display  a  single  polyhedron  by  setting 
IR(1)  =  IH(2)  =  the  index  of  the  polyhedron; 

2.  display  a  group  of   consecutively   input   polyhera, 
where: 

IB(1)  =  the  index  of  the  first; 

and  IR(2)=the  index  of  the  last  pclyheron; 

3.  or  display  the  entire  image  as  input  in   INITAL  by 
setting  IB(1)  =  31. 

Except  fcr  the  TEKTRONIX,  the  display  cf  a  wire  frame 
image  by  video  graphic  machines  was  performed  in  "real 
time".  Real  time  was  defined  as  a  period  cf  time  so  short 
that  the  user  could  not  detect  a  time  lag  between  the 
programs  execution  and  the  complete  drawing  of  the  image. 
Shile  the  computation  of  the  image  require  an  insignificant 
amount  cf  time  for  the  host  computer  of  the  TEKTRONIX  (an 
IBM-360) ,  the  vector  display  speed  of  this  device  was  very 
slow.   The  VERSATEC  was  also  a  relatively  slew   device,   but 
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bard  copy   machines  have  not  been  expected  tc  produce  "real 
time"  displays. 

The   construction  of  this  general  graphics  language  did 

emit  some  specific  device  versatilities.   The   VERSATEC  had 
the  capabilities   to  re-define  its  display  area,  resolution 

sizer  and  line  thickness,  and  could  produce   shaded   images. 

These   capabilities  could  have  teen  added,  but  were  left  for 

subsequent  efforts  due  to  time  constraints. 


E.   INTEBACTIVE  SOETWAKE  AND  HAECWABE 


The  transformations  for  rotation,  scaling,  and 
translation  provided  the  means  fcr  complete  image  movement 
in  three  dimensions.  These  procedures,  which  have  been 
implemented  with  hardware  at  some  installations,  coupled 
with  interrupt  devices,  such  as  alphanuneric  keyboards, 
function  switches,  graphic  tablets,  joysticks,  light  pens, 
and  track  nails,  provided  a  user  with  a  complete  interactive 
viewing  capability.  The  subroutines  written  to  rotate, 
scale,  and  translate  a  single  pclyhedrcn  or  the  entire  image 
were  completely  device  independent. 

The  calling  parameter  IB(2),  which  was  used  by  each  of 
the  three  subroutines,  was  defined  and  utiilized  as  stated 
in  A.  above.  Thus,  new  viewing  aspects  could  be  generated 
for  a  single  polyhedron,  a  group  of  objects,  or  the  entire 
displayable  image.  The  usage  of  the  scaling  subroutine  also 
required  that  the  user  provide  the  scale  factors  for  the  x, 
y,  and  z  coordinates.  The  additional  calling  paraneters 
required  for  image  translation  were  the  distances  in  the  x, 
y,  and  z  directions  which  the  3-D  object  was  to  be  moved. 
Ihe  sign  required  for  these  distances  was  opposite  to  that 
of   the   standard  velocity   vector  describing   the  objects 
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lotion  in  this  direction.  Rotation  calling  parameters 
included  the  number  specifying  the  axis  and  the  angle  of 
rotation.  If  an  arbitrary  axis  was  selected,  the 
coordinates  cf  two  distinct  points  had  to  be  passed  intc  the 
subroutine  also.  The  usage  cf  these  routines  was  defined  in 
the  comment  section  preceeding  INITAL.  The  three  software 
transformations,  rotation,  translation,  and  scaling, 
reguired  a  minute  amount  of  computation  time.  Any 
combination  of  a  few  of  these  three  called  between  INITAL 
and  DISP1Y  cculd  be  performed  in  "real  time". 

Direct  view  storage  tube  display  devices  have  an 
extremely  limited  interactive  capability  due  to  the  method 
used  to  clear  the  screen.  This  device  had  a  writing  cathode 
which  traced  the  image  on  a  fine  wire  mesh  which  was  located 
just  behind  the  phosphorous  screen.  Initially,  the  entire 
wire  mesh  was  negatively  charged.  Vectors  drawn  on  the  mesh 
by  the  writing  cathode  caused  these  line  seguents  to  become 
positively  charged.  These  positively  charged  areas 
accelerated  and  passed  the  electrons  emitted  from  a  second 
cathode,  which  was  issuing  a  "flood"  of  electrons  to  refresh 
the  image  on  the  phosphorous  screen.  To  clear  an  image,  a 
large  positive  pulse  was  applied  to  the  wire  mesh.  This 
caused  a  large  flash  to  spread  across  the  screen.  Since  the 
flash  disrupted  any  possible  display  for  several  seconds, 
the  usage  of  this  type  of  device  for  rapidly  charging, 
interactive  images  was  highly  unrealistic. 

Vectored  CRT's  have  acheived  an  extremely  high  degree  of 
resolution  and  support  most  interactive  interrupt  devices, 
fiith  this  type  of  display  machine,  the  image  on  the 
phosphorous  screen  was  refreshed  by  storing  the  entire  image 
in  a  vector  list.  A  highly  complex,  static  image,  one 
containing  several  thousand  vectors,  could  cause  the  display 
to  begin  flickering.  This  type  of  CRT  can  produce  only  a 
limited  number  cf  vectors  before  the  phosphorous  illuminated 
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for  the  first  vector  begins  to  dim.  Thus,  shaded  images, 
which  would  require  many  vectors  for  even  a  simple  3-D 
object,  can  not  feasibly  be  produced  using  a  vectored  CBT. 
However,  excellant  3-D  graphs  and  extremely  complex 
wire-framed  objects  have  been  visulized,  using  multiple 
colors,  with  these  devices. 

The  AEAGE  AGT-10  was  an  extremely  versatile  device  and 
had  an  alphanumeric  keyboard,  function  switches,  function 
knobs,  a  joystick,  and  a  light  pen  as  interactive 
capabilities.  Since  this  machine  was  operated  in  a 
stand-alone  mode,  these  interactive  interrupt  devices  were 
easily  utilized  through  the  users  application  program, 
except  the  light  pen.  The  light  pen  could  only  be  accessed 
and  utilized  in  the  image  subroutine.  This  extremely, 
device  dependent  capability  was  not  included  in  the  graphics 
software,  since  its  usage  would  have  required  a  through 
knowledge  of  this  machines  software  for  even  a  simple 
application. 

The  BAMTEK's  interactive  devices  consisted  of  an 
alphanumeric  keyboard  and  a  set  of  function  switches  which 
could  be  used  to  position  a  cursor.  The  cursor's  screen 
coordinates  were  obtainable  through  device  related  software. 
Ihe  BAMTEK's  host  computer  was  a  PDP-11,  which  priiarily 
supported  the  software  "C".  Since  the  graphics  software  for 
the  BAMIEK  was  written  in  C  and  there  was  no  software 
interface  written  for  Fortran  IV,  only  those  subroutines 
required  to  perform  hidden  surface  elimination  were 
translated  to  Fortran.  Therefore,  the  interactive 
capability  of  this  device  was  limited  to  input  via  a  host 
computer's  alphanumeric  terminal.  The  resolution  of  this 
video  graphics  device  was  240  lines  with  640  elements  per 
line.  Its  lack  of  vertical  discrimination  provided  poor 
image  continuity  in  this  dimension.  Since  this  was  the  only 
raster  scan  device  available  at  this  school,  its  utili2ation 
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was  necessary  to  implement  the  hidden  surface  algorithm, 


C.   HIDDEN  LINE  REMOVAL 


The  hidden  line  removal  algorithm  described  in  Section 
III.  was  invoked  by  calling  the  subroutine  REMOVE  after 
INITAL  and  any  desired  interactive  subroutines.  EEMOVE 
called  the  subroutines  RDYCLF,  SCRN,  WARNCK,  and  DISPL2. 
The  calling  parameter  required  by  REMOVE  was  the  integer 
array  IR(2),  which  was  described  in  A.  Since  this  algorithm 
clipped  each  edge  against  display  windows  to  process  an 
image,  the  vertices  of  the  pclyhderon  to  be  displayed  were 
passed  to  WAENCK  expressed  in  un-clipped  screen  coordinates. 
WARNCK  contained  the  Looker,  the  Thinker,  and  the  Controller 

described   in  III.   As  the  display  was  processed,  the  X  and 

s 

Y   coordinates  of  the  two  endpoints   for   each   vector   were 
s 

stored   in   two   arrays.   This  storage  reduced  the  numter  of 

device  dependent  subroutines  added  to  the  graphics  package 
by  this  algorithm  to  one,  DISPL2.  DISPL2  generated  vectors 
for  the  display  exactly  as  performed  by  DISPLY.  The  image 
subroutine  used  by  DISPLY  to  created  the  vector  list  for  the 
ADAGE  was  also  used  by  this  subroutine. 

The  algorithm  as  presented  in  Section  III.  displayed 
each  edge  of  a  simple  polyhedron,  like  a  cube,  by  failure. 
Display  by  failure  means  that  the  Thinker  was  unatle  to 
resolve  any  display  window  and  a  dot  was  displayed  when  the 
window's  size  was  reduced  to  the  smallest  screen  resolution. 
An  edge  was  displayed  as  a  line  of  dots  and  was  extremely 
grainy.  This  consistent  failure  had  occurred  because  each 
edge  was  common  to  two  polygons.  When  the  display  window 
was   reduced   so   that   it   contained   only   one   edge,   the 
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intersectcr  list  still  contained  the  indices  of  two 
polygons.  Ihe  Thinker  announced  failure  and  the  Controller 
divided  the  window.  The  computation  time  required  to 
process  and  display  a  cute  (which  has  a  maximum  of  three 
viewable  surfaces  and  nine  viewable  edges)  exceeded  twelve 
minutes  of  CPU  time  on  the  IBM-360.  Additionally,  almost 
9,000  storage  locations  were  required  to  store  the  endpoints 
cf  these  single  dot  vectors. 

To  reduce  the  occurrence  of  display  fcy  failure,  the 
intersector  list  was  not  rejected  if  only  two  polygons 
remained  after  comparison  with  the  hider.  When  the  list 
contained  two  indices,  the  number  of  edges  which  intersected 
the  current  display  window  was  determined  for  both 
polygon's.  Provided  there  was  only  one  edge  for  both,  the 
vertex  indices  of  one  polygon's  edge  were  compared  to  those 
of  the  seconds  to  ensure  it  was  the  same  edge.  When  this 
procedure  found  a  common  edge,  the  endpoints  cf  the  vector 
intersecting  the  window  were  stored.  This  addition  to  the 
Thinker  reduced  the  CPU  time  to  approximately  20  seconds  and 
the  storage  requirements  to  about  300  locations. 

Even  though  the  display  time  had  been  reduced  ty  a 
factor  of  thirty,  this  hidden  line  removal  procedure  was  not 
even  remotely  acceptable  for  a  real  time  display.  While  a 
more  complex  Thinker  could  possibly  reduce  the  computation 
time,  hardware  implementation  remains  the  only  feasible 
method  for  a  real  time  display  using  this  algcritm. 
Additionally,  the  realism  of  wire-frame  images,  even  with 
hidden  lines  removed,  was  marginal  at  test.  As  stated 
previously,  shaded  surfaces,  or  solid  images,  can  net  be 
displayed  with  this  type  of  CE1.  Therefore,  realitic  3-D, 
"real  time"  computer  graphics  must  be  performed  using  a 
raster  scan  CBT  with  a  hidden  surface  removal  algorithm. 
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E.   HIDDEN  SURFACE  REMOVAL 


The  hidden  surface  algorithm  was  implemented  by  calling 
the  subroutine  SURFAC  after  INITAL  and  any  of  the  desired 
interactive  procedures .  As  with  all  ether  procedures  in 
this  package,  the  hidden  surfaces  may  te  removed  and  tne 
display  created  for  one  or  a  set  of  polyhedra  or  the  entire 
image  input  to  INITAL  as  determined  by  the  two  element 
integer  array  IR  (2) .  The  object  coordinate  data  was 
transformed  to  clipped,  screen  coordinates  by  calling  the 
subroutines  EDYCLP,  CLIP,  SCRN,  and  SHOWIN.  The  remaining 
portion  of  this  subroutine,  SURFAC,  was  the  Controller  as 
described  in  Section  III.  The  Looker  and  the  Thinker  were 
contained  in  the  obviously  named  subroutines  LOOKER  and 
THINKER. 

The  hidden  surface  removal  algorithm  added  two  device 
dependant  subroutines  to  the  graphics  software  package, 
which  were: 

1.  SHOfcIN  -  constructed  the  desired   color   table   and 
corrected  the  vertical  coordinates; 

2.  SHOK  -   displayed   each  scan  as   its  image   was 
resolved. 

The  hidden  line  subroutines  stored  all  of  the  image  vectors 
until  the  entire  display  was  resolved.  However,  even  a 
single  polyhedron  would  generate  such  a  large  list  of 
vectors  (or  segments)  to  display  solid  surfaces  that  the 
storage  reguirements  of  a  moderately  complex  scene  would 
exceed  realistic  limits. 

The  RAMTEK,  and  most  raster  scan  CRT»s,  could  produce 
sixteen   intensity   levels   for   each   of   the  three  primary 
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colors.   Thus,  with  all  possible  combinations  of   the   shads 

of  red,  green,  and  blue,  this  device  was  able  to  display  any 

16  of   the   4096   colors   at   one   time.    Since   a   shading 

algorithm  was  not  implemnted,  SHCWIN  was  used  to  construct  a 

color  table,  containing  sixteen  colors,  which  was  needed  for 

the   applications   program   presented    in   Section   V. 

Additionally,  the  RAMTEK's  vertical  scan   lires   (240   lines 

total)   were   twice   as   wide   as  each  horizontal  element  of 

resolution.   To  prevent  this   rectangular   picture   element 

from  causing  image  elongation,  the  vertical  dimensions,  V 

sy 

and   V   ,   were   doubled.     This   procedure   caused   the 
cy 

horizontal,   X  ,   coordinates  to  be  clipped  with  Y   values 
s  s 

which   were   twice   their   actual   size.    Thus,   the   large 

disparity  tetween  vertical  and  horizontal  resolution 
dimensions   was  not   allowed   to  cause   image  elongation. 

SHOHIN   was   also   used  to  divide  all  Y   coordinates  ty  two 

s 

before  the  controller   began   processing   scan  lines.    Had 

these  coordinate  values  net  been  divided,  each  scan  line 
displayed  would  have  been  resolved  and  written  intc  BAM 
twice. 


The  hardware  used  to  input  the  image  data  ontc  the 
memory  planes  by  the  RAMTEK  was  called  a  "vector  generator". 
Although  the  "vector  generators"  used  by  current  raster  scan 
CRT's  disply  vectors  at  speeds  only  limited  by  the  oemory 
plane  write  times,  the  RAMTEK's  generation  cf  line  segments 
was  noticeably  slow.  Except  for  this  slew  vector  display 
capability,  this  software  algorithm  developed  shaded 
surfaces  in  "real  time".  Provided  the  user  defined  the 
shading  or  colors  of  each  polygon,  this  type  of  display 
algorithm  was  shown  to  be  a  valuable  tool  for  rapidly 
changing,  realistic  presentations. 
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V.   A  TJjBEE-EIMESNIONAL  GRAPHICS  APPLICATION 


In  order  to  demonstrate  the  capabilities  of  the  3-D 
Graphics  Package  an  application  program  was  written,  which 
was  motivated  by  the  display  of  the  torpedo  test  area  at 
Keyport.  Each  test  area,  which  was  irregularly  shaped, 
could  be  described  by  one  or  more  convex  polyhedra.  A 
polyhedron's  upper  and  lower  surfaces  represented  the  Puget 
Sound's  air/water  bcundry  and  its  mud  bottom,  respectively. 
Botation,  scaling,  and  translation  of  these  polyhedra 
provided  any  desired  viewing  aspect.  Since  the  display 
device  at  Keyport,  the  GENISCO  GCT-3000,  was  a  high 
resolution  (1024  by  1024)  display  device,  the  hidden  surface 
algorith  was  selected  to  present  a  realistic  3-D  display. 
However,  the  Range  Safety  Officer  needed  tc  see  inside  the 
polyhedral  approximaticn  of  the  torpedo  test  area  not  the 
closest  polygonal  surfaces.  In  view  of  this  common  type  of 
display  requirement,  the  algorithm  was  altered  so  that  the 
hidden  surfaces  were  displayed  and  the  closest  surfaces  were 
deleted. 

A  real  time  display  of  torpedoes  and  other  test  vehicles 
in  the  range  was  required  to  prevent  them  from  running 
aground  or  leaving  the  test  area.  Hence,  an  algorithm  was 
developed  which  detected  the  polygonal  surface  penetration 
by  a  vehicle.  Obviously,  detection  of  an  accident  after 
occurrence  would  be  absurd.  Thus,  an  actual  implmentation 
of  this  type  of  display  would  require  the  construction  of  a 
safety  factor  by  displaying  surfaces  which  were  withir.  the 
actual  test  area  boundries.  This  construction  would  be 
performed  by  the  definition  of  the  topedo  test  area  when 
input  to   INITAL   and   actually   did   not  alter  the  display 
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requirements. 

The  location  of  a  vehicle  in  the  test  area  was  provided 
by  acoustic  line  of  bearings  which  were  used  to  determine 
its  position.  For  this  application,  the  fix  provided  ty  the 
bearings  was  assumed  to  generate  the  x,  y,  and  z  object 
coordinates  required  for  this  graphics  package.  Since  the 
acoustic  information  provided  about  the  vehicle  was  not  3-D, 
the  torpedo's  location  was  defined  as  a  single  point. 
However,  the  actual  display  of  the  vehicle  was  3-D  which 
provided  the  correct  relative  direction  of  motion 
information  (called  target  angle)  to  the  observer.  Although 
all  surfaces  of  the  tcrpedo  were  the  same  color,  its  hidden 
surfaces  were  removed  for  display  since  this  algorithm 
required  such  minute  computational  processing  time. 
Finally,  the  torpedo*s  track,  its  last  five  positions,  was 
displayed  as  a  line  in  the  vehicles  color. 


A.   PLANAR  SURFACE  PENETRATION 

The  theory  used  to  determine  if  a  point  had  penetrated 
cne  of  the  test  area's  boundries  was  originally  conceived  by 
L.  G.  Roberts  to  remove  hidden  lines  from  3-E  figures.  It 
used  the  coefficients  of  the  plane  equation  presented  in 
Section  III.  G.  "These  coefficients,  in  the  vector  form  [a 
b  c  d],  were  also  the  expression  for  a  hcncgeneous  vector 
normal  to  the  plane  (homogeneous  refered  to  the 
representation  of  a  3-D  pcint  as  a  1  by  4  vector,  where  d 
was  an  arbitrary  scale  factor).  If  the  dot  product  of  this 
normal  and  a  vector  in  the  viewing  direction  was  positive, 
then  the  polygon  was  a  back  face  of  the  polyhedron  and  thus, 
non-viewable.  Face  normals  were  also  used  to  compute 
shading  paraaeters.  " 


96 


Additionally,  if  two  points  were  on  the  same  side  cf  the 
plane  of  a  polygon,  the  dot  product  of  either  point  with  the 
normal  vector  would  have  the  same  sign.  Since  concave 
polyhedra  would  allow  two  interior  points  to  be  on  different 
sides  of  a  plane  determined  by  a  polygon,  only  convex 
polyhedra  were  utilized.  Two  adjacent  convex  polyhedra 
could  have  at  most  one  common  polygonal  face.  Since 
penetration  cf  this  common  surface  by  a  vehicle  would  have 
falsely  indicated  danger,  these  faces  were  eliminated.  If  a 
vehicle  penetrated  a  test  area  boundry,  its  color  was 
changed  to  red. 


E.   HIDDEN  SOBFACES  DISPLAYED 


To  present  the  interior  of  a  3-D  object,  it  was 
necessary  tc  eliminate  the  normally  viewable  surfaces.  The 
hidden  surface  algorithm,  which  criginally  eliminated  tack 
planes,  was  easily  modified  to  display  the  hidden  surfaces. 
Cnly  the  Looker  subroutine  had  to  be  altered.  The  Looker  in 
Section  III.  compared  all  segments  which  intersected  a  span 
in  order  to  locate  one  segment  which  was  closest  tc  the 
viewer  and  hid  all  other  segments  in  the  span.  This 
subroutine  was  altered  to  search  for  the  farthest  segment 
from  the  viewer  which  hid  all  other  segments  from  a 
viewpoint  located  on  the  other  side  of  the  crigin  (on  the 
same  viewing  axis) ,  as  shown  in  Figure  31. 

Since  the  majority  of  this  image  was  static,  the  tcrpedo 
test  area  cnly  required  processing  to  display  the  hidden 
surfaces  initially  and  when  the  viewing  aspect  was  changed. 
However,  any  moving  image  presented  a  special  problem  on 
this  type  of  display  device.  To  project  the  concept  of 
motion  on  a  raster  scan  CRT,  it  was  not  sufficient  to  simply 
translate  or  rotate  and  then  display  the  new  image,   because 
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the  original  figure  was  written  in  tne  memory  planes  and 
would  be  displayed  until  replaced.  With  the  GENISCO,  it  is 
possible  to  sample  the  memory  planes  defining  the  color  of 
any  one  pixel,  but  the  RAMTEK,  which  was  designed  and  built 
ten  years  before  the  GCT-3000,  did  not  have  that  capability. 
Ic  delete  an  image  of  a  torpedo  with  the  GENISCO,  one  method 
would  be  to  sample  the  two  colors  displayed  en  the  screen  at 
the  two  endpeints  of  each  line  segment  which  defined  this 
figure.  Provided  colors  at  these  two  points  were  the  same 
and  the  vehicles  image  was  small,  this  color  could  be  stored 
for  this  segment.  It  could  then  be  used  to  restore  the 
original  background  when  the  torpedo* s  position  changed. 
However,  the  time  required  for  these  background  color 
computations  could  be  more  than  that  to  re-process  and 
display  the  entire  image  again.  Without  this  option,  using 
the  RAMTEK,  the  static  image  was  input  to  the  hidden  surface 
display  algorithm  and  re-drawn  each  time  the  torpedo's 
location  changed.  The  torpedo's  3-D  form  and  its  track 
where  then  displayed  at  their  new  screen  locations. 

To  provide  the  maximum  display  flexibility,  it  was 
necessary  to  provide  a  means  to  both  rencve  and  display 
hidden  surfaces.  Thus,  an  additional  calling  paraneter, 
ILOOK,  was  added  to  the  subroutine  SURFAC  (the  Controller). 
Ihis  parameter  was  used  to  enable  the  Controller  to  select 
the  correct  Locker  subroutine,  where: 

1.  ILOCK  =   1,   called   LOOKER   which   removed   hidden 
surfaces; 

2.  and  ILOOK  =2,  called   LOOKR*   which   displaced   the 
back  polygonal  planes. 
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Viewpoint 

■•  (Q,b,c) 


AXIS 


Figure  31  -   VIEWPOINT  REQUIRED  TO  DISPLAY  THE  BACK  SURFACES 
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C.   TORPEEC  2EST  AREA  SIMULATION 


The  torjedo  test  area  utilized  for  this  application 
program  was  ccnstructed  with  three,  box  type  polyhedra.  The 
two  end  boxes  had  five  polygonal  surfaces  and  the  middle  had 
four.  The  test  area,  which  was  shown  in  Figure  32  as  a 
wire-frame  image,  had  all  surfaces  displayed  as  light  blue, 
except  the  bottom  which  was  light  brown.  The  torpedoes  were 
colored  black. 

Interactive  input  to  this  program  provided  new  torpedo 
positions  in  x,  y,  and  z  object  coordinates,  which  simulated 
periodic  acoustic  fixes  and  subsequent  display  update.  Any 
two,  distinct  vehicle  locations  described  its  direction 
vector.  When  a  new  position  was  input,  a  new  direction 
vector  was  formed  between  this  and  the  last  tcrpedo 
location.  Tc  compute  the  correct  target  aspect,  these  two 
direction  vectors  were  used  to  find  the  angle  through  which 
the  vehicle  had  rotated,  as  shown  below: 

T 
cos  €  =  (a   b)  /  (||a| |  ||b||)  , 

where  a  and  b  were  the  two  direction   vectors   and   the 

||aj|   operation  represented  the  magnitude  of  vector  a. 

The  vehicle's  image  was  then  rotated  arout  the  axis 
which  was  rcrmal  to  both  vectors.  This  ncrmal  vectcr  was 
found  by  forming  the  cross  product  of  the  two  direction 
vectors.  The  two  points  used  to  specify  this  arbitrary  axis 
required  ty  the  subroutine  ROTATE  were  the  vehicles  present 
position,  (2  y  z  1),  and  a  point  found  using  the  normal 
vector.  These  two  operations  were  summarized  algebraically 
as  : 
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N   =   a   a  b   ,    wher€  s>  represents  the  operation  of 
vector  cross  product. 

and 

(x1  y»  z»  1)  =  (x  y  z  1)  +  N 

Thus,  the  correct  vehicle  aspect  was  obtained  by 
translation  cf  the  iiage  to  (x  y  z  1)  and  rotation  about  the 
arbitrary  axis  specified  above  through  the  angle  theta. 

lo  realistically  describe  a  3-D  object  by  planar 
polygonal  mosaics  was  difficult  if  the  object  was  composed 
of  curved  surfaces  like  a  torpedo.  Its  cigar  shape  was 
basically  represented  by  an  octagonal  cylinder.  The  rounded 
nose  of  the  torpedo  was  roughly  approximated  by  reducing  the 
diameter  of  the  cylinder.  The  smaller  diameter  of  a 
torpedo's  tail  was  exaggerated  by  reducing  the  cylinder's 
diameter  to  a  point.  An  approximation  cf  a  propeller  was 
attached  to  this  point.  As  shown  by  the  wire-frame  image  in 
Figure  33,  even  a  crude  approximation  of  such  a  complex 
surface  required  many  polygons.  The  actual  display  cf  this 
image  reguired  the  definition  cf  27  polygons,  58  edges,  and 
33  vertices.  While  the  actual  numerical  values  were  not 
important,  they  shewed  that  the  storage  requirements 
increased  rapidly  with  the  complexity  of  the  surfaces  which 
were  to  be  displayed.  Simple  geometric  figures,  such  as 
buildings,  required  little  storage  and  the  effort  of 
approximation  was  minimal.  The  realistic  approximation  of 
complex  surfaces  required  a  large  amount  cf  storage  and 
guite  alct  of  artistic  talent.  Finally,  these  numerical 
values  indicated,  as  observed  with  nearly  all  3-D  figures, 
that  the  memory  allocations  required  to  store  edge 
definitions  tere  usually  double  that  for  any  other  image 
discriptor. 

The   applications   program,   the   polygonal   penetration 
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subroutines,      L00KR1       (the      modified      Looker   subroutine)    and 
their   respective   flow   charts    were   included    in   Appendix   B. 
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Figure  32  -   TORPEDO  TEST  ARIA 
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Figure  33  -    TORPEDO  APPROXIMATION 
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I.   CONCLUSIONS 


The  Three-Dimensicnal  Graphics  Package  contained  in 
Appendix  A  did  not  include  two  important  aspects  of  coirputer 
generated  graphics,  an  image  shading  procedure  and  2-D  and 
3-D  graphs.  Both  items  are  important  aspects  of  graphical 
presentations  and  should  be  included  in  a  complete  package. 
They  were  items  left  for  future  research  due  to  the  length 
cf   time  reguired  to  develop  the  present  graphical  software. 

The  intent  of  this  effort  was  to  provide  a  portable 
computer  graphics  software  package.  To  a  very  real  extent, 
this  goal  was  accomplished.  However,  the  development 
software  language,  Fortran  IV,  was  not  entirely  portable. 
In  fact,  a  program  which  removed  hidden  lines  on  the  IEM-360 
failed  en  the  PDP-11  because  of  one  its  fcrtran 
idiosyncrasies.  Additionally,  ac  abnormal  amount  of  time 
was  expended  attempting  to  input  data  via  a  file  on  each  new 
computer.  It  would  make  more  sense  for  an  crganizaticn  to 
really  standardize  the  fortran  supported  by  all  of  its  main 
computers  before  a  portable  graphics  software  was 
implemented. 

Fortran  as  the  development  language  for  this  graphics 
package  proved  to  te  guite  efficient  with  cne  exception.  If 
Fortran  IV  had  the  binary  operations  common  to  languages 
like  C  and  SAIL,  the  graphics  software  could  have  been 
simplified.  While  no  time  comparisons  between  two  languages 
were  attempted,  the  excellent,  "real  time",  results  acheived 
with  the  hidden  surface  algorithm  indicated  that  Fortran  was 
highly  acceptable  as  the  development  language.  Fortran  may 
net  be  the  best  language  available  for  graphics,  but   it  is 


105 


the  only  universally  supported  and  accepted  software. 

The  3-D  graphics  package,  as  presented  in  Appendices  A 
and  B,  provide  a  user  with  the  ability  to  present  any  object 
on  any  selected  display  device  which  is  supported  through 
Fortran.  Its  portability  was  demonstrated  en  four  distinct 
types  of  display  devices  through  the  interface  of  three 
different  host  computers.  There  were  only  seven  subroutines 
that  contained  statements  which  were  device  dependent.  One 
of  these,  SHCWIN  would  not  have  been  reguired  if  the  raster 
scan  CRT  available  had  had  sguare  picture  elements.  These 
subroutines  all  call  device  procedures  which  performed  the 
same  task,  but  had  different  names.  Each  of  the  device 
related  subroutines  caused  the  device  to  generate  a  line 
segment  (or  vector)  on  the  display  surface.  Usually,  the 
display  machines  were  built  around  a  16-rBit  display 
processor.  The  primary  task  of  the  device  dependent 
procedures  was  a  data  conversion  interface  between  the  host 
and  the  display  computer.  Therefore,  if  a  large 
organization  utilized  a  "standard"  Fortran  and  reguired  that 
all  interface  subroutines  utilize  standard  names,  this 
Three-Dimensional  Graphics  Software  could  be  made  completely 
portable.  The  obvious  advantages  of  this  software 
installation  would  be  a  great  reduction  in  software  and 
personnel  training  costs. 
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APPENDIX  A 


THREE-DIMENSIONAL  GRAPHICS  SUBROUTINES  AND  FLOW  CHARTS 


Each  sutroutine  was  listed  with  a  very  brief  explanation 
cf  its  function  in  the  comment  section  preceedinc  the 
program.  A  specific  flow  chart  followed  each  program.  When 
the  contents  of  a  program's  flow  chart  could  net  be 
presented  on  a  single  page,  a  generalized  flow  chart  was 
listed  first.  It  was  followed  by  specific  charts  which 
amplified  all  blocks  of  the  flow  chart  that  were  marked  with 
a  circled  number  in  a  lower  corner,  such  as: 


The  subroutines  were  divided  into  three  groups,  Display 
a  Wire-Frame  Image,  Remove  Hidden  Lines,  and  Hidden 
Surfaces.  The  list  of  variables  defined  on  pages  9  through 
16  were  used  throughout  the  programs  and  the  flow  charts. 

1 •   display  a  Wire-Frame  Image 

This  group  of  subroutines  included  those  to  input 
the  image  data,  the  coordinate  system  transformations,  the 
image  clipping  procedure,  and  the  display  subroutine  for 
wire-frame  images.  Additionally,  the  interactive 
subroutines  to  rotate,  scale,  and  translate  an  image  were 
listed  with  their  flow  charts.  The  subroutines  which  were 
used  to  multiply  matirces  were  included,  but  flow  charts 
were   not   drawn   due   to   their   simplicity   and   lack   of 
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applicability  to  the  graphics  software  effort 
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THF  three  dimensional  graphics  package  consists  of 

USER  CALLABLE  SUHROUTINES: 

1.  INITAL-  INPUTS  ALL  DATA  WHICH  DEFINES  THF  IMAGE; 
^.  TPANSL-  TRANSLATES  THE  tNTIRE  IMAGE  OR  A  SINGLE  POLYHEDRON 
3.  SCALE-  SCALES  THE  ENTIRE  [MAGE  OR  A  SINGLE  POLYHEDRON; 
a.  ROTATE-  ROTATES  THE  ENTIRE  IMAGE  OR  A  SINGLE  POLYHEDRON; 

5.  DISPLY-  DISPLAYS  THE  IMAGE  WITH  ALL  LINES  DRAaN; 

6.  REMOVE-  DISPLAYS  THt  IMAGE  AFIER  REMOVING  ALL  HIDDEN  LITE'S 

7.  SURFACE-  DISPLAYS  THE  OBJECT  AS  AN  IMAGE  WITH  SOLID 
SURFACES  AFTER  REMOVING  THE  HIDDEN  OR  BACK  SURFACES. 

THREE  DIMENSIONAL  IMAGES  WUST  BE  CONSTRUCTED  OF  A  SERItS  OF 
PULYHEDR0N3  (MAXIMUM  UF  10).  EACH  POLYHEDRON  MUST  HE  CONS  f  PUC  f  ED  , 
OF  A  SF  r  UF  CONNECTED  POLYGONS  (MAXIMUM  of  30  POLYGONS  TOTAL). 
EACH  POLYGON  IS  DEGCRlBtD  BY  A  SE  T  OF  10  OR  LESS  CONNECTED  EDGES  I 
(THE  MAXIMUM  TOTAL  NUMBER  OF  EDGES  IS  60.)   EACH  EDGE  13  DEMnEo! 
BY  Ttt«  DISTINCT  POINTS.   EACH  POINT  (MAXIMUM  OF  le>Oj  IS  DEFINED 
BY  ITS  X,  Y,  AND  I    OBJECT  COORDINATES.   (WHERE  THE  OBJECT 
COORDINATE  SYSTEM  lb  A  THREE  DIMENSIONAL,  RIGHT  HANDED  SYSTtw 
WHICH  ^AY  USE  ANY  UN  I  T  UF  MEASUREMENT.) 


TO  USE  THIS  PACKAGE  THE  FOLLOWING 
CALLING  SUBROUTINE  INITAL: 


DATA  MIJST  BE  SUPPLIED  B  / 


Z  OBJECT 

ARE  INDEXED, 


USING  A  a  la  FORMAT  INPUT  , JN  THIS  ORDER: 

(1)  THE  NUMBER  OF  POLYHEDRONS 

(2)  THE  NUMBER  OF  POLYGONS 

(3)  THE  NUMBER  OF  EDGES 

(4)  THE  NUMBER  OF  POINTS 
USING  A  UG10.3  FORMAT  INPUT  THE  X,  Y,  AND 

COORDINATES  FOR  FACH  POINT.   THE  POINTS 
CUNSECTIVELY,  AS  THEY  ARE  INPUT. 
USING  A  ?IU    FORMAT  INPUT  THE  INDICES  FOP  THE  TWO  POINTS 
WHICH  DESCRIBE  EACH  EDGE.   \hi     EDGES  ARE  INDEXED, 
CONSECUI  IVELY,  AS  THEY  ARE  INPUT. 
TO  DESCRIBE  EACH  POLYGON  INPUT,  IN  THIS  ORDER: 

(1)  USING  An  I<4  FORMAT,  THE  NUMBER  OF  EDGES  WHICH 

DESCRIBE  THIS  POLYGON. 
id)    USING  A  101  a  FORMAT,  THE  INDEX  NUMBERS  OF  THE  EDGES 
IflrHICH  DESCRIBE  THIS  POLYGON. 
THE  POLYGONS  ARE  CONSECUTIVELY  INDEXED  AS  THEY  ARF  INPUT. 
TO  RtDUCE  STORAGE  SPACE  ALL  OF  THE  POLYGONS  1\HICh  DETERMINE 
A  POLYHEDRON  MUST  BE  INPUT  CUNSECU I  I VEL Y . 
TO  DESCRIBE  EACH  POLYHEDRON  INPUT,  USING  A  21  a  FORMAT,  1  HE 
IMDF.X  MUMHFRS  OF  (HE  FIRST  AND  LAST  POLYGONS 
WHICH  DESCRIBE  THIS  POLYHEDRON. 
,  USING  A  3G10.3  FOR'-'AT  INPUT  THF  OBJECT  COORDINATES 

OF  THF  POINT  FROM  WHICH  IMF  IMAGE  IS  To  BE 
VIEW  POINT  MUST  BE  EXTERIOR  FROM  ALL 

v. 
FORMAT  INPUT  THE  DISTANCE  FROM  THE  VIEWING 
THE  DISPLAY  IS  TO  BE  VIEWED  AND  THE  VER1IC&L 
THESE  TWO  MEASUREMENTS  MUSI  USE  THE 


X,  Y,  AND  Z, 
VIE.-.ED.  THt 
POL YHEDRQNS. 
USING  A  PG10.3 
SCREEN  THAT 
SIZE  OF  THE  SCREEN. 


SAME  UNITS. 

USING  AN  in     FORMAT  INPUT  THE  INDEX  OF  THE  COLOR  TABLE  TO 

BE  U3LD  TO  CONSTRUCT  1  HE  IMAGE. 

USING  AN'  I'4  FORMA  I  PJPUl  THE  INDEX  NUMBER  OF  THE  COLOR  FOR 
EACH  POLYGON.   IF  THF  IMAGE  IS  TO  BE  DISPLAYED  AS  A  WIRE- 
FRAME CbY  CALLING  DISPLY  OR  REMOVE.)  THE  FN!  IRE  IMAGE  WILL 
BE  DRAWN  USING  TME_gOLflR  OF  THE  F I RS T  POt  Y GON . 
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T"  SH0,<  rHL  tMAGfc  fil  tMU"'  RFMOVINC  HIDDEN  LHifS  CALL 
SUBROUTINE  UISPLY  AFTER  TUlIAL.   "JlSPLY  HAS  NO  CALLING" 


PARAMtTERS. 
LINES*  CALL 
INITAL. 


TO  DISPLAY  ThF.  IMAGE  AFTER  REMOVING  ALL  HIDDEN 
SUBROUTINE  REMOVE  ((JO  CALLING  PARAMtTERS)  AFTER 


FOLLU: ING 


CONTAINING  THE  *, 
THFR  DIFFERENT  P(J 


c. 


1.  P2(3)  IS  a  (\i  ARRAY  CONTAINING  THE  X,  Y,  AND  Z 
COORDINATES  OF  AN*  OTHER  DIFFERENT  POINT  UN  THE 
ARHTRARY  AXIS,  WHERE  pe(\),     ??(.?),     AMD  P<?(3)  ARE  USED 
FOR  >.,  Y,  AND  Z    COURDINAIESf  RESPECTIVELY. 
5.  THETA  IS  THE  ANGLE  IN  DEGREES  THROUGH  ir.HICM  Ihr 
POLYHEDRON  OR  THE  ENTIRE  IMAGE  .IS  TO  Br.  ROTATED. 
1CALE(IR,S),  rtHERE: 

1.  IR  IS  AN  INTEGER  ARRAY  USED  TO  DETERMINE  WHICH  PARI 
UF  THE  IMAGE  IS  TO  HE  SCALED  AS  DEFINED  ABOVE  FOR 
ROTATE. 
? .  S ( 3 )  IS  AM  ARRAY  h IT  H  : 

(A)  S(l)  IS  THE  SCALE  FACTOR  FOR  fht  x  COORDINATES 
(8)  S(?)  IS  ThF  SCALE  FACTOR  FOK  THE  Y  COORDINATES 
(C)  SH)  IS  T  ME  SCALE  FACIOR  FOR  IHE  I    COORDINATES 


IS  AM  ARRAY 

SCI)  IS  THE 

S(V)  IS  THE 

SH)  IS  T  ME 

WHERE 

AM  INTEGER 

AGE  IS  TO 


ROTATE 

?.  S(3) 

(A) 

(8) 

(C) 

TRAMSL(IP,T), 
1 .  IP  IS  C 
UF  THE  If 
R  0  f  a  T  E  . 
?.  1(3)  IS  A\  ARRAY 
(•A)  T  (  1  )  IS  THF 
POLYHEDRON' S 

(B)  T {?)     IS 
POLrHE  CRO.^  '  s 

(C)  T("S)     IS 
PUL YHfc  DWON 


ARRAY  USED  TO 


DETERMINE  hHICH  par[ 
ABUVE  IN 


.  I  TH 


THF 


BL  SCALED  AS  DEF  INFO 

TRANSLATE  THF 

TU  TRANSLATE.  {HI 
TRANSLATE 


X  DISTANCE  TO 
I  "AGE . 

y  oisr 

IVAGt  . 
THF  Z  0  1  ST 
•S  IVAGt  . 


TO 


Thi 


THFSF  ThRtE  SUBROUTINES  MUST  ijE  CALLED  AFTER  INITAL  AND  Hl-FURt 
EITHER  DISPLY  OR  RE^OvF,  INITIALLY.  AFTER  THE  IMAGE  IS  INPUT 
THE  SUBROUTINE.  JwlTAL  NEED  NEVER  UF  CALLED  AGAIN.   ^IHUS,  H> 
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"~CH"STTr>t     THfc     UlSPLAY      \Hl     jHRFfc     SUBROUTINES     AHUVt     MAY     'i\     CALLfh     IN 
AMY    SEQUENCE    AFIFR    WHICH    t  I  THER    DJSPLY    UP    RfcMOVfc    MUST    HL    CALLED. 

IMF     CAIL'ING    PARAMETERS    REQUIRED    FUR    OJSPLY,    REMOVE,     AhP 

SURFACE    AKF: 

1.  IR  IS  A  TrtO  ELEMENT  ARRAY  aHICH  DETERMINES  WHICH 
PART  UF  THE  IMAGE  IS  TO  HE  DISPLAYED,  AMD  IS  USED 
AS  DEFINED  ABOVE  FO*  ROFAfF.     .    .  . 

2.  FOR  THE  SUBROUTINE  SUPFAC  ONLY  THE  PARAMETER  ILOOK 

IS  ALSO  REQUIRED  rfHICH  IS  USED  in  DETERMINE  WHICH  SURFACES 
ARE  TO  t)F  DISPLAYED  AND  WHICH  ARE  TO  bE  REMUVED: 

1.  ILOOKrl  REMOVES  IHE  HIDDEN  SURFACES; 

2.  ILU0K=2  DISPLAYS  THE  BACt<  OR  HIDDEN  SURFACES, 
WHICH  ALLOWS  IHE  USER  TO  SEE  INSIDE  THE  POLYHEDRONS. 
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,YE(I),7E ( I) ), I=1,P0INTM) 
(  I  ),EDbE2(l )),!=! ,EDGEN) 


)=J 

POLYGN(I,K) ,K=l ,  J) 


( (POL YHE(  1,1)  ,°OLYHE( 1,2) ),  1  =  1  , POL YHN) 

VX, VY, VZ 

Cx,CY,CZ 

A,B 
ICULUR 
(3nAL>(I  )  ,  1  =  1  ,PULGN) 


IBB) 

J.-.RIFF  (b,H) 

x  1  ,  Y  I  , *?, Y2) 

).-(RI  IF  (h,<*) 

ICULUR) 

)  t-M  I  I  f  I  6  ,  1  0  ) 
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1 
? 

5 

a 
5 
b 

7 

8 

9 

10 


forma  r  f  U I U  ) 
FORMAI f 3G1 0. 5) 

FORMA  1  (?N) 
FORMA?  ( IU  ) 
FORMA  1  f  i  0  IU  ) 
FORMAT  ((2C;iO.JJ 


FORMAT (  11  ) 
FORMAI (2X , 
FORMA! (<JX, 
FORMAT (2X, 
ENO 


THE 
THE 
THE 


RAMTEK  DEVICE  'flOULD  NOT  OPEN') 
FUNC HON  SCREEh  FAILED'  ) 
FUNCT ION  CULORf  FAILED'  ) 
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INITAL 


INPUT 
POLYHN 
(POLGN 

EDGEN 
POTNT.N 


) 


D  O 
I=l,FOINTN 


INPUT: 
/XE(I),YE(I)/ 
ZE(I) 


INPUT:  J 
POLYGN(I,ll)=Jj 


INPUT: 
POLYGN(I,K 


_  -  J 


1 


INPUT: 
POLYHE(I,l)/_  J 
POLYHE  (1,2) 


INPUT: 
VX,VY,VZ 
fA,B 


INPUT 
INDEX  OF 
COLOR 

'ABLE 


D  O 
I=l,POLGN 


1 


INPUT 
rSHAD(I) 


1 


INITIALIZi 

VSX,VCX, 

VSY,VCY 


INITIALIZE     SCREEN 
SELECT    COLOR    TABL; 
(SUBROUTINES) 


(RETURN  J 
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ccccccccccccccccccccccccccccccccrcccccccccccccccccccccccccccccccccccc 
c 

C      RDYCLP:  TRANSFORMS  THt  OBJECT  COORDINATES  TO  EYE  COORDINATES 
C         AND  KEAOYS  THE  IMAGE  FOR  CLIPPING 

C 

CCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCC 
SUBROOTJNt  RDYCLP 

INTECEP  POINTN,POINTM,FDGEM,EDGtM,EDOE  (2,20U),FDOE1(100) 
INTEGER  PCHANG(200) ,  EuGc2( t  00  J 
COMMON  /AAA/Xtn20),YE(l?0),ZK(l?0),POINTN 
COMMON  /AAB/  XS ( 1 20 ) , YS ( 1 20  J , ZS ( I  20 ) , POIMTM 
COMMON  /AC/  EUGt 1  ,  EDGE?  ,  EbGfcN 
COMMON  /AAD/  EDoE»EOGEy 
COMMON  /CC/  VX,VY,VZ,A,B,CX,CY,CZ 
COMMON  /FF/PCMANG> THFTA 
COMMON  /JJ/VSX , VoY , VCX , vCY 

DIMENSION  V(4,4),T1(4,4),T?(4,4),T3(4,4),T4(4,4),RN(4,4) 
DIMENSION  TNK.'if  a  )  .  TE^'P  f  4) 
DATA  V , T 1 , T2, r3,T4,RN/9»*0.0/ 
DO  SO  1=1, 1*0 
PCHANGf I )=0 
POINT MrPOlNTN 
EDGEM=EDGtN 
DO  160  I=1,EDGFN 
EDGEfl  ,  I  )=k'OGt  1  (1  )      f 
EDGEU,  I)=£DGfc?(I  ) 
CONT  INOE 
DO  13b  1=1,4 
Tl  (I,l)  =  l 


30 


160 


136 


T3(i,I)=l 
T4(I,I)=1 
RNC I , I )=l 
CON  I  IisOK 
Tl (4, 1 )=-VX 
Tl (4,2)=-VY 
Tl (4,3)=-VZ 
T2(l , 1 )=-l  .0 
12(2, J)=-l .0 
T2(3,2)=i  .0 
12(4, 4)  =  t  .0 
S(J  =  VX*VX  +  VY*VY 
SQQ=SQRT (SO) 
CS=VY/SUQ 
SS=VX/SOQ 
T3(1,1)=CS 
T3(1,3)=SS 
T3(3, 1 )=-SS 
T3(3,3)=CS 
SO  =  SQtVZ.»VZ 

SRQ=sQRr(sn ) 

CSS=SOQ/SRQ 

SSS=VZ/SPO 

T4(2,2)=CSS 

T4(2,S)=-SSG 

T4(3,2)=SSS 

T4(3,3)=CSS 

CALL  GMPRD( n ,T2,V,4,4,4) 

CALL  GMPRIM  r3,T4,M  ,4,4,4) 

CALL  GMPRDfV,  I  1 , T2,4,4,4) 

SX  =  1  .0 

SY=1  .0 

IF(VSX.Gr.VSY)     SX=VSY/VSX 

IF(VSX.LT.VSY)    SY  =  V!iX/VSY 


114 


137 


RN(1» l)=A/P*SX 

CALL  GMPWOC r2#RN,V#fl»a#aj 
DO  137  I  si,  POINTS 

TEKP(1  )rxE(  I) 

TEMP(2)=YE(I) 

rEKP(3)=ZF(I ) 

TEMP(q)  =  l  .0 

CALL  GPPU(T£MP,V,TNEW) 

XS(I )=rNtA( 1  ) 

YS(I  )=TNE!«(?) 

ZS(  I)s1Ntn( 3) 
CON  1  I- 'JUL 
RETURN 
END 
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c 


RDYCLP 


ZERO  ARRAY 
PCHANG 


r 


D  0 
Isl,EDGEM 


EDGE(1,I)=EDGE1(I) 
EDGE(2,I)=EDGE2(I) 


FORM  MATRIX  Tl 
(4,4)-TRANSLATES 
VIEWPOINT  ORIGIN 


FORM  MATRIX  T2 
C4,4)-ESTABLISHES 
LEFT-HAND  COORDINATE 

J-SYSTSM 


FORM  MATRIX  T3 
(4,4)-ROTATES 
VIEWING  AXIS  INTO 
THE  X-Z  PLANE 


FORM  VIEWING  TRANSFORM 
V=T1  T2  T3  T4 


D   O 
I=l,POINTM 


XS(I)    YS(I)    ZS(I)    1 


]  = 


XE(I)    YE(I)    ZE(I)     1 IV 


c 


RETURN 


FORM  MATRIX  T4 
(4, 4) -ROTATES 
VIEWING  AXIS  INTO 
THE  Z-AXIS 


6 
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ccccccccc 
c 

C      CLI 

c 
c 
c 

ccccccccc 

SUB 
DIM 
Cuv 

CUM 
CUM 
CUM 
CUM 
INT 
&,SH 
DU 


CCCCCCCCCCCCCCCCCCCCC'CCCCtCCCCCCCCCCUCCCCCCCCLCCCCCCCCClCCCC 


P:  CLIPS  TmF  IMAGE 
AND  ELIMINATES  ALL 
SCKEEN 


AGAINST  THE 
POPHUNS  OF 


VlSIRLr  DISPLAY 

EDGES  »HICH  APE  OFF  THE 
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l  a  i 


144 


145 


146 


147 


CCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCl.CCCC 

ROUTINE  CLIP 

F No  ION  J(?),X(2),Y(2),Z(2),IT0T(2) 

won  /Ad/  POL  YGN,POLGN,  SHAD 

MON  /AAD/Ef>Gt»EDliEM 

MON  /Fi- /    PCHANG,  THET  A 

MON  /AAH/  XS(  120), YS( 120) , ZS( 120) , POINT' 

MON  /II/  ICH>s(2,4) 

EGEP  POLYGN(bO, 1 1 ) ,EOGE(2.200) ,PCHANG(2<  0)  ,PCLGN,EDGEM 

ADC60) ,PUINTM 

13d  I  =  1,EDGF.M 

I  S=  1 

LN  =  2 

J( 1 )=EDGE(1 , I ) 

J(2)=EDGEt2.  I  ) 

J1=J( 1 ) 

J2=J(2) 

X( 1 )=X3(J1  ) 

X(2)=XS(J?) 

Yd  )=YS(Jt  ) 

Y(2)=YS( J?) 

Z(1)=ZS(J1  ) 

Z(2)=?S(J2) 

HOT  (  1  )  =  1C0DE(X(  1  )  ,Y<  1  )  ,Z(  1  )  ,  1  ) 

IT0T(2)=IC0DE(X(2)/Y(2),Z(2) ,2) 

ib=iioi ( i ) ♦ i roT (2) 

IFdti.LO.O)  GO  TO  140 
DO  141  K  =  l  ,  u 

I  A=  I  CriK  (  1  ,K  )  *ICHK  (?,K  ) 

IF (I  A. EG. 2)  GO  10  14  2 
CONTINUE 

IF  (I  TOr  (13)  .EQ.O)  CALL  IS!r.AP(IS,LN) 
IR=J(ISJ 
PCHANG(IK)=1 

IFdCHM  IS,  1  )  .EQ.O)  GO  TO  144 

T  =  (Z( IS)+X( 15) )/( (X(1S)-X(LN))-(Z(LN)-Z(IS)  )  ) 
Z(lS)=r*(7(LN)-?(IS))»Z(IS) 
X(1S)=-Z( IS) 

Y(1S)=1 *(Y(LN)-Y (IS)  )+Y (IS) 
GO  TO  147 

IF(ICHK(IS,?).fefJ.O)  uO  TO  145 
T  =  (Z(Ib)-x(IS))/((X(l.N)-X(IS))-(Z(LM)-Z(IS))) 

Z  ( I  S  )  =  T  *  (  Z  I  L  t  I )  -  7  (  I  S  )  )  ♦  /  (  I  S  ) 
X(IS)=Z(IS) 

YUS)  =  r*(Y(LN)-Y(is))*rns) 

GO  TO  14/ 

lF(icn»^nr>,3).Eo.O)  go  ro  i4b 

f x (7 ( I b ) ♦ V ( I S ) ) / ( ( Y ( I S ) -Y (LN ) ) - ( Z (LN ) -Z (  I S )  ) ) 

Z(  IS)  =  I  »(Z(LN)-Z(  IS))*/ (IS) 

YCIS)x-Z(lS) 

X(IS)=l*(x(lN)-X(Ib))tx(IS) 

GO  TO  147 

r  =  lZ(IS)-Y(ISn/((Y(LfJ)-Y(IS))-(Z(LN)-Z(IS))J 

ZUS)sl»(Z(LN)-Z  I  !&))«£(  IS) 

Y  (  1  S  )  =  Z  (  I  S  ) 

X(  IS  )  =  1  •  (X(l.N)-x(  IS)  )  ♦  * ( IS) 

1 10T ( IS ) xlCOOE ( X ( I s ) . v ( 1 S ) #  7 ( I S ) t I S ) 


11? 


GO  TO  inn 
140     IT=J(IS) 

IF(PCHA\o(  IT)  .tQ.O)  GO  TU  1488 

P0lNTM  =  P0I^TMd 

IF(P01KT«.GT  .  121  )    GO    TO     1/49 

XS(POJNTM)sXdS) 

VS(POINTI*)sY(IS] 

ZS(POINTM)=/dS) 

EDGE( IS, 1 )=POINTM 
1488  IT=JCL«N) 

IF(PCH6NG(IT)  .EQ.O)     GO     TO     138 

POlMTv  =  Polf,Tr,+  1 

IF (P0INTV.GT.120)     GO    TO     149 

XSIPOINTM)=j (LN) 

YS(PUIMvO  =  Y(L'i) 

ZS(PQINTM)=Z (LN) 

fc'DGF(LN,  I  )=POINTM 

GO    TO    13t« 
142  EDGE(1,I)=G 

EDbE(2,  I  j  =  0 

IT=J( 1 ) 

PCMANG(I  D  =  l 

IT=J(?) 

PCHAMG( IT)=1 
138  CONTINUE 

RE  TURN 
149  WKI Tt (6, 9) 

8  FORMAT (//l X,  •  THE  NUMBER  OF  PCIN1S 
lSTORAGE  ALLOCATED  FUR  POINTS'//) 
RETURN 
END 


HAS  EXCEEDED  THE  MAXIMO' 


118 


CLIP 


T 


1  =  1 
IS=1 

LN=2 


1=1  +  1 


GET  TWO  ENDPOINTS, 
Jl  &  J2,  OF  EDGE  I. 
STORE  XS,YS,  &  ZS  VALUES 
IN  ARRAYS  X(2),Y(2)&Z(2) 


I 


OMPUTE  LOCATION  IN  XS 
|YS  PLANS  OF  THE  TWO 
ENDPOINTS 


EXAMINE  BOTH 
OF  THE,  NOW, 
LINE  SEGMENT. 

ENDPOINTS 

VIEWABLE 

1 

<ENDPOINT 
CRUSHED", 


DELETE 
ENTIRE 
EDGE 


endpointX.  yes 
viewable/ 

ISWAP 
(IS,LN) 

\. 

/ 

NO 

< 

PUSH  ENDPOINT  "IS" 
TOWARDS  THE  SCREEN 

i 

' 

I 

COMPUTE  LOCATION 

pF  NEW  ENDPOINT 
."IS" 

STORE  X,Y  &  Z  VALUES 
OF  NEW  ENDPOINT  AT 
NEW  XS() ,YS( ) ,&ZS( ) 
LOCATION 

l 

' 

INCREMENT  TOTAL  NUMBER 
OF  POINTS.  STORE  INDEX 
OF  NEW  POINT  IN 
APPROPRIATE  LOCATION 
FOR  EDGE  I. 

no 


cccccccccccccccLccrcccccccccccccccccccccrcrcccccccccccjcccccccf-Ccccrccc 
c 

C      ICOOF:  UStD  BY  CLIP  TO  DETERMINE  IF  AM  tND  POINT  IS  VISIBLE  AMP 
C         IF  MOT  TO  WHICH  SIDE  OF  IhE  DISPLAY  THE  POIMT  IS  LOCATtD. 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccrccL 

FUNCTION  ICODfc (X, Y,Z, I ) 
COMMON  /I  I/ICMK (?,0 ) 
00  13^  J=1 ,4 
139  KHK(I,J)=0  -^ 

IFCX.LT. -Z)  I  C  H  K {  I  , 1  )  =  1 
IF  (X.GT.Z)  LCHK (  I  ,2)  =  1 
IF(Y.LT.-Z)  ICHK(I,5)=1 
IF(Y.GT.Z)  ICHK(I,'4)  =  1 

IC0DE  =  ICHK(1,  1  )  tICHK(  1,2)  t!CH*(  1,5  )+ICHK(  I,  q) 
RETURN 
ENO 


120 


I    CODE 
(X,Y,Z,I) 


D    0 
J    =    1,4 


ICHK(I,J)=0 


ICHK(I,1)=1 


ICHK(I,2)=1 


ICHK(I,3)=1 


,no 


ICHK(I,4)=1 


I    CODE=ICHK(I,l)+ICHK(2,I)+ 
ICHK(3,I)+ICHK(4,I) 


C    RETURN       J 


121 


CCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCC.'CCCCCCCCCCCCCCCCCCCCCCLCC 


c      ishap:  swaps  the.  values  of  two  iutei'frs 
c 

CCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCLCwCCrCCCCCCCr.crCCCCCCCCCCt 
SUBROUTINE.  IS"AR(I,J) 


I  r  =  i 

I=J 

J  =  IT 

RETURN 
END 


CCCCCCCLCCCCCCCCCCr.CCCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCCCCCCCLCCCCCCCCCL 

c 

C        SWAP:  SuARS  TuF  VALUES  OF  TuO  REAL  MJMREWS. 

c 

ccccccccrcccccccccrcccccccccccccccccccccrcccccccccccccccccccccccccr.c 

SUBROUTINE  SflAP(X,Y) 

T  =  X 

X  =  Y 

Y  =  T 

RETURN 

END 


122 


123 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccLcr.ee 
c 

C      SCRM:  TRANSFORMS  EYE  COOROINA1FS  TO  SCREEN  COORDINATES 

c 

cccccccccccecccecececcceccccccccccccccccccccccccccccccccccccccccc.eri.ee 

SUBROUTINE  oCRNi 

COMMON  /AAH/  XS(  120)  ,  Y3(  120)  ,ZS(  1  20)  ,POlNTM 

COMMON  /FF/  PCHANG 

COMMON  /JJ/vSx, VSr , VCX, VCY 

INTEGER  PCHANGC200) ,POTMTM 

s=vsx 

IF(S.GT.VSY)  S=VSY 
DO  151  1  =  I » POINT M" 

IF(PCHANG( J).EQ.l)  GO  TO  151 

Z=ZS(I) 

XS(I )=XS( I  )/Z*S+vCX 

YS(I)=YS(i)/Z*5tvCY 

ZS(I>s-J.O/Z 
151  C  0  N  T  I  isi  U  £ 
RETURN 
END 


12^ 


ICRN 


S=    MINIMUM 

OF 
(VSX    AND    VSY) 


1    =    1 


Z=ZS(I) 

XS(I)=XS(I)/Z*S+VCX 
YS(I)=YS(I)/Z*S+VCY 
ZS(I)=    -1.0/Z 


NO 


125 


ccccccccccccccccccctccccccccccccccccccccccccccccccccccccccccccccccrcr.c 
c 

C      DISPLY:  MASTER  SUBRGU  1  I NE  rtHlCH  DRAWS  THE  CLIPPEO  IMAGE  ON  THE 

C         SELECTED  OUTPUT  DEVICE. 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccr. 
subroutine  displyiik) 
dimension  ir(2) 
common  /aa/polyhe,polyhn 
common  /ao/rolyi;n,polgn,shad 
common  /aad/  tdge,edgem 

common  /aab/  xs ( 1 20 ) , ys ( 1 20 ) , zs (1 20 ) , po intm 
common  /ff/  edgchg(200) 

integer  polygnfoo, 1 1 ) , edge ( 2 , 200 ) , polgn, edgem, color 
integer  vector, shad (60) , poin tm, edgchg, polyhe ( 10,2) , poly hn 

CALL  RDYfLP 
CALL  CLIP 
CALL  SCRN 
DU  30  1=1 ,EUGEM 
30  EUGCHG(I)=0 
JL=IR(1 ) 

IFCJL.EU.31 )  GO  TO  152 
KL=1R(2) 
I=POLYHE(JL,  1  ) 
J=POLYHE(*L,2) 
GU  TO  1522 
152  1=1 

J=POLGN 
1522  JLM=SHAD(1) 

1I=C0L0R(JLM) 
DO  1530  K  =  I,  J 

LN  =  POLYGN(K, 1  1  ) 
DO  15a0  N=1,LN 

L=P0LtGNf K ,N1 
K1=EDGE( 1  ,L) 
K2=EOGE(2#L  ) 
IF(Kl.EO.O)  GO  TO  15<I0 
IFCEDGCMGCD.EG.U  GO  TO  15-40 
EDGCHG (L)=l 
XS1=XS(K1 ) 
YS1=YS(K1 )/2.0 
XS2=XS(K?) 
YS?=YS(K2)/2.0 
KR=VECTOP(XS!,YS1 #XS2»YS2) 
IMKR.LI.O)  WRITE  1 6, 3) 
15a0     CONTINUE 
1530  CONI INUE 
RETURN 
3      F0RMA1CTHE  FUNCTION  VECTuR  FAILED*) 
END 
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DISPLY(IR)J 

ir 

RDYCLP 

CLIP 

SCRN 

r 

ZERO  ARRAY 

IEDCHG 

JL=IR(1) 

YES 


KL=IR(2) 
J=POLYHE(JL,i: 
K=POLYHE(KL,i: 
I=J 


J  =  l 

K=POLGN 


DISPLAY    VECTOR 
S(K1),    YS(K1) 
TO 
XS(K2)     ,    YS(K2) 


LN=POLGN( 1,11) 
N  =  l 


33KD 


N=N  +  1 


L=POLYGN(K,N) 

K1=EDGE(1,L) 

K2=EDGE(2,L) 


L=POLYGN(K,N) 

K1=EDGE(1,L) 

K2=EDGE(2,L) 


12' 


ccccccccccccccccccccccccccccccccccccccccccrcccrccccccccccccccccccccccf. 
c 

C      ROTATE:  ROTATES  A  SINGLE  POLYHEDRON  OR  THE  ENTIRE  IMAGE 

c 
cccccccccccccccccr.ccccccrccLCcccccccccccccccrcr.cccccccccccccccccccfLCi; 

SOBROUT INt  HOTATElIR,RAxI5,Pl,P2,THE) 
COMMON  /AA/  PULYHE,  POl  YHN 
COMMON  /AB/  PULYGN,POLGN,SHAO 
COMMON  /AC/  EDGt 1 ,E0GE2,E0GFN 

COMMON  /AAA/XE ( 120) , YE (  120) ,?t(   120)  ,  POINTN 
COMMON  /FF/PCHANG, THETA 

dimension  r(a,  i))f«ll«»«)  »R2(«,«),«3(«,*i)  ,TT(a,ia),TEMP(a,a) , 

&LM ( a ) , L  R ( <« ) , P 1  ( 5 ) , P2 I  3 ) , I P ( d ) 

INTEGER  POL  Y  HE  (  10,2)  ,POLYGN(t>0,  \  1  ) ,  EDGE  I  ( 1  00  ) ,  EDGE2(  1  00  ) , 
RPOL  YHN , POLGN , EDGE  N , PO 1 N  T  N , RUT  1 T , R A  x I S / SH AD ( 60 ) , PCH ANG ( 20  0 ) 
DATA  f,Rl,R2,H3,TT,  IE'-'P/^6*0  .0/ 
DO  30  11=1, POINTN 
30  PCHANG(iI)=0 

TMETA=THE*3. IH lbQ/lHO. 

JL=IR( 1 ) 

IF(JL  .E0.31JGU  10  111 

KL=IP(2) 

J=PCLYHE(KL ,?) 

H=POLYhF(  JL,  1  ) 

GO  TO  (1  12,  113,1  1<4),HAXJS 

DO  115  K  =  l  I  ,  J 

LN=POLYGN(K , 1 1 ) 
DO  lib  N=l ,LN 

L=P01YGN(K,N) 
CALL  RCTXIEOGEl (L) ) 
CALL  R0rx(EDGE2(D) 
116     CONTINOE 
115  CUNT INUE 
RETORN 

112  DO  1 18  K  =  I  I/J 

LN=PCLYGN(K,  1  1  ) 
DO  1 19  N=l ,LN 

L=POLYGN(K,N) 

CALL  R0TY(FDGE1  (L)  ) 

CALL  K0TY(EDGE2(LJ  ) 

119  CONTINUE 
118  CONTINUE 

RE  I  URN 

113  DO  120  K  =  I  T  ,  J 

LN=POLYGN(K, 1 1 ) 
DO  121  M=!,LU 

LN  =  POLYGN(r<  ,M) 

CALL  W0TZ(EDGE1 (L) ) 

CALL  KOT7(EOGE2(L3  ) 
121     CONTINUE  % 

120  CONTINUE 
RETURN 

1  la  DX  =  P2( 1  )-Pl  (  1  ) 
DY  =  P2(2) ♦PI  (2) 
D/=P2(3)-P1 ( S) 
0 TEMPsfYx  *DX  ♦  D Y  * D Y  *DZ  * DZ 
DlSfsSQRT ID  TEMP) 
Ex=DX/DISI 
EY=UY/DIPT 
E?=D7/niSl 
V  =  Sf;Rl  (EY*EYttZ*EZ) 
DO  122  L  =  l,'l 
.    T(L,L)  =  l.n     ._.  ,      , .  •; 


128 


H  1  (  L  ,  L  )  =  1  .  0 
R2(L,l)=l.O 
R31L,L)=1 .0 
|22  CONTINUE 

AA=£Z/V 
BB=EY/V 

T(U,1)=-P1(1) 

f(4,2)=-Pt(2) 

T(«,3)=-P1 (3) 

Hi C2,2)=A^ 

Rl (2,3)=BB 

Rl (3,2)=-3B 

Rl CJ»3)=AA 

R2(l ,  1  )=V 

R2(  1  , 3)=EX 

R2(3, 1 )=-EX 

R2( 3,3)=V 

R3( 1 , 1 )=CUS(THE1 A) 

R3( 1 r2)s-SlH(lriETA) 

R3(2, 1 )=-K3( 1,2) 

R3(2,2)=P3U  ,  1  ) 


R3(2,2)=P3(1  ,  1  ) 
CALL  GMPPK7  ,k1  ,  TEyP.-J,J»<n 
CALL  UMPRC  CTE«P,H2,  T  T  ,  '4 ,  '4 ,  '4 ) 
CALL  GMPROC f T,P3, TEMP,U,«,4) 

RE=V*V+EX*EX 


hE**Ex 
RF=V/HE 
RG=EX/RE 
RD=AA*AA+BR*BB 
RA=AA/RQ 
RB=bB/RD 
T(4,l )=P1 ( 1 ) 
T(a,2)=Pl  12) 
T(a, 3)=P1 (3) 
Rl  (2»2)=RA 
Rl  (2,3)=-kB 

RlC3r^)=Rri 

Rl  C3,3)=RA 

R2( W 1 )=«H 
R2(1,S)=-HG 

R2(3# 1)=RG 
R2(3,3)=KF 
CALL 


R2(3,3)=WF 

CALL  CMPRO( T£MP,R2, T r, «»«#«) 

CALL  liMPRl)(  r  T,R1  ,lEMP,q,'4,<») 

CALL  GMPPL'(  TEMP.  T  /  TT  ,  'J,y,«) 

IFCI.FO.3t)  GO  TO  123 

DO  12a  k=IT,J 

LNsPOLYGNCK,  1  1  ) 
DO  125  NslrlN 

LsPOLYGN(Kvri) 
CALL  KOTAHtHEOGfcl  (L  )  ,  TT  J 
CALL  HOI AKH(F0Gfc?(L)  ,   T  T  ) 
12S     CONTINUE 
12«  CONTINUE 
RETURN 

DO  126  K=l  ,POINTN 
CALL  R0TAH8CK,TT) 
CONT  INUt 
RETURN 

GO  10  T12H,  \?.<*,  1  t«)  ,  PAX  IS 
DO  127  K=I »P01NTN 
CALL  RGTx(K) 
12/  CUN1 INUE 
HFTUHfJ 


123 
126 

til 


129 


128  DO  130  K=t,POIMTN 

CALL  ROTY(K) 

130  CONTINUE 
RETURN 

129  00  131  K=1,P01NTN 

CALL  RuTZ(K) 

131  CONTINUE 
RtTURN 
END 


130 


c 


ROTATE (IR,  IAXIS,  PI,  P2,  THET 


ZERO  ARRAY 
PCHANG  (I) 
THETA=THE* 3.14/180 
JL=IR(1) 


YR.^ 


J  =  1 

K  =  POLGN 


II=POLYHE(JL,l) 
J=POLYHE  (KL,1) 


YES 


Y-AXIS 
ROTATION 


YES 


Z-AXIS  OF 
ROTATION 


•0 


YES 


€) 


ARBITRARY 

AXIS  OF  ROTATION 


X-AXI 


K    =11 


S    OF    ROTATION 


0 


L=POLYN(K,N) 

L1=EDGE1(L) 

L2=EDGE2(L) 


ROTX(Ll) 
ROTX(L2) 


LN=POLYGN(K,ll) 
N    =    1 


K=K  +  1 


MD 


N=N  +  1 


131 


G 


A j   Y-AXIS 

ROTATION 


r 


DO 
K=II,  J 


"~l 


LN=POLGN(K,ll) 


r 


DO 
N=1,LN 


L=POLYGN(K,N) 

Ll=EDGEl(L) 

L2=EDGE2(L) 


l_J 


ROTY(Ll) 
ROTY(L2) 


(return   ) 


G 


B]  Z-AXIS 

ROTATION 


DO 

K=II  ,  J 


LN  =  POLYGN(K,ll') 


r 


DO 
N=1,LN 


L=POLYGN(K,N) 
L1=EDGE1(L) 
L2  =  E.DGE2(L) 


L 


ROTZ(Ll)  1— 
ROTZ(L2) 


C    RETURN   J 


__J 


32 


© 


ARBITRARY  AXIS 
OF  ROTATION 


COMPUTE 
DIRECTION 
COSINES  OF 
ARBITRARY  AXIS 


© 


FORM  MATRIX  T(4,4) 
WHICH  TRANSLATES 
ONE  POINT  PI 
TO  THE  ORIGIN 


P   0 
K=II,  J 


FORM  MATRIC  Rl  (44) 
WHICH  ROTATES 
ARBITRARY  AXIS  INTO 
X  -  Z  PLANE 


LN=POLYGN(K,ll) 


FORM  MATRIX  22   (4,4) 
WHICH  ROTATES 
ARBITRARY  AXIS  INTO 
Z-AXIS 


r 


DO 
N  =  1,  LN 


FORM  MATRIX  R3  (4,4) 
WHICH  ROTATES  IMAGE 
ABOUT  THE  ARBITRARY 
AXIS (IN  THIS  CASE  THE 
Z-AXIS)  THROUGH  THE 
ANGLE  THETA 


1 


L=POLYGN(K,N) 

L1=EDGE1(L) 

L2=EDGE2(L) 


L_Z 


TEMP=T  Rl  R£  R3 
Hl=Rl_-i    R2=R2-1 
T=T-1 


ROTARB(Ll,II) 
ROTAR3(L2,II) 


(         RETURN  J 


FORM  TOTAL 
TRANSFORM: 

_XI=tf:mp  rj~1ri~1t~1 


© 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccr.r. 
c 

C      ROLL:  USED  riY  ROTX,  ROTY,  RuTZ,  AND  ROTARB  TO  PfcRFOKM  A  REPtAIM 
C  CALCULATION,  THE  COSINE  AND  SINE  OF  THE  ANGLE  OF  ROTATION. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCI 
FUNCTION  ROLL ( T,S, AN) 
ROLL  =  T  *C0S(AN)*S*SIN(AN) 
RETURN 
END 


-> 


ROLL (T, 3,  AN) 


R0LL=T*CC3(AN)+3*5IN(aN) 


C 


RETURN 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


ROTAWB:  PERFORMS 
IMAGE  ABOUT  AN 


THE  REPEATED  MULT 
ARBTRAPY  AXIS 


S  TO  ROTATE  THE  SELECTED 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCClCCC 
SUBROUTINE  ROT ARb ( LR , T T ) 
DIMENSION  T  T  (a,.4  )  ,  TEVM(a)  ,  TNfcrt('4) 
COMMON  /AAA/  aE(  \'dO)  ,  YE  (  120)  ,  IE  (  1  ?0  )  ,P01NTN 
COMMON  /FF/  PCHAf-JG,  THETA 
INTEGER  PCHAnG(<?00  )  ,P'UINTN 
IF(PCHA>iG(LR)  .F.N.  1  )  RETURN 
TEMP( 1 )=XE(LR) 
TEMP(c;)rYt(LR) 
TEMP(3)=ZE(LR) 
TEMP(4 )=1 .0 

CALL  GPROCTf.vip,  fl  ,  TNErt) 
X£(LR)=TNEa( 1 ) 
f£(LR)=TN£W(?) 
Z£(LR)=INEw(3) 
PCHANG(LR)=1 
RETURN 
END 


136 


c 


ROTARB 
(ER,TT) 


RETURN 


) 


XE(LR)    YE(LR)    ZE(LR)       ll 
XE(LR)    YE(LR)    ZE(LR)       ll 


TT 


PCHANG(LR)=1 


(       RETURN     J 


13? 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCL 

c 

C      ROTX:  PERFORVb  THE  REPEATED  ^IMPLICATIONS  T.0  POTATE  THE 
C         SELECTED  IMAGE  ABOUT  THE  t    Axis 

C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCn.ee 

SUHHOUTINt  ROKCLR) 

COMMON  /AAA/  XE(120),YF(120),Z.EU20),POINTN 

COMMON  /FF/  PCHANG, THETA 

INTEGER  PCHANG(<?00  )  ,PUINTN 

IF(PCHANG(Lrf).FQ.J)  ^t  TUWf4 

YA=YE(LR) 

2A=ZECLP) 

ZE(LR)=POLL(ZA, YA, THETA) 

ZA=-ZA 

rE(LR)=ROLL(YA#ZA, THETA) 

PCHANG(LP)=1 

RETURN 

END 
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C      ROTX(LR)\ 


YSS 


"H        RETURN      ) 


NO 


YA=YE(LR) 
ZA=ZE(LR) 


ZE(LR)= 
ROLL(ZA,YA,THETA) 


ZA    =    -ZA 
PCHANG(LR)=1 


ZE(LR)= 
ROLL(YA,ZA,THETA) 


f      RETURN     J 


IJJ 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCCCCrCCCCCCCCCCCCCCCCLCCCCCLC 

c 

C      ROTY:  PERFORMS  THE  REPEATED  ^ULT.'S  10  R0TA1F  THE  SELECTED 

C  IMAGE  ABOUT  THE  Y  AXIS 

C 

ccccccccccccccccccccccccccccccccccccccrcccccccccccccccrcccccccccccccc 

SUBROUTINE  ROTY(LH) 

COMMON    /AAA/    xEU<fO),YE(120),  ZEU20),POiNlN 

COMMON     /FF/     PCHANG,THETA 

INTEGEP    PCHANU(200) ,P0INTN 

IF(PCHANG(LM).EQ.l)     RETURN 

XA=XE(LP) 

ZA  =  ZE(!_R) 

ZE(LR)=ROLL(ZA, *A,THETA) 

ZA=-ZA 

XE(LP)=POLL(<A,ZA, THETA) 

PCHANGfLP)=l 

RETURN 

END  
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C  rotyClrA 


«S, V 

^l   RETURN  J 


XA=XE(LR) 
ZA=ZE(LR) 


ZE(LR)= 
ROLL(ZA,XA,THETA) 


ZA=-ZA 
PCHANG(LR)=1 


XE(LR)= 
ROLL(XA,ZA,THETA) 


C 


RETURN 


1M 


CCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCrirt. 

c 

C      ROTZ:  PERFORMS  THE  REPEATED  N'UlT.'S  TO  ROTATE  THE  SELECTED 
C         IMAGE  ABOUT  Tht  Z  AXIS 

C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCL 

SUBROUTINE  KOTZ(LR) 

COMMON  /AAA/  xF  (  120)  ,  »E(  12  0)  ,ZE(  120),POINTN 

COMMON  /FF/  PCHANG,THETA 

INTEGER  PCHANG ( 200 ), POINT N 

IF (PCHANG(LR) .EG. 1 )  RETURN 

XA  =  Xf  ILR) 

YArYF.(LR) 

YE(LR)=ROLL(YA,  XA,  THF.TA) 

YA=-YA 

XE(LR)=ROLL(XA,YA,ThE [A) 

PCHANG(LR)=l 

RETURN 

END 


(  ROTZ(LR)     J 


YES 

>T       RETURN      J 


XA=XE(LR) 
YA=YE(LR) 


YE(LR)= 
ROLL(YA,XA ,THETA) 


YA    =-YA 
PCHANG(LR)=1 


XE(LR)= 
ROLL(XA,YA,THETA) 


U 


f        RETURN    J 


"■A3 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCLC 

c 

C      SCALE:  SCALtS  A  SINGLE  POLYHEDRON  OP  THE  ENTIRE  I  MAGE 

c 
ccccccccccccr.cccccccctccccccccccccccccccccccccccccccccccccccccccccccc 

SUHrtOUTiN't  SCALt(I3,S) 
DIMENSION  S(  5)  ,  If*  12) 
COMMON  /AA/POLYHE  ,POLYHN 
COMMON  /Ab/  PULYGN, POL GN, SHAD 
COMMON  /AC/  FDGEl ,EOGE2,EDGEN 
COMMON  /AAA/  <E(  120),  YE(120),ZE(120),POJNTN 
COMMON  /FF/PCHANG 
COMMON  /HH/cjX  ,SY  ,SZ 

INTf  GLP-  PUL  fHfc(  10,2),POLVGN(60,  I  I  ), EDGE1  (1 00 ) ,EDGE2 ( 1 00) 
irPOLYHM,POLGN/EDG'EN,P0lNT.M,SCALIT,SHAD(60)  ,  PCHANG  (  ?U0  ) 
SX  =  S(  1  ) 

sy=su) 

DO  30  U  =  1,P0IN1N 
30  PCHANGCII)=0 
JL=IR( 1 ) 

IFCJL.EQ. 31 )  GO  TO  ) 32 

KL=I«(2) 

JrPULrHt (Kl ,2) 

I  I=POL  YnE  (  Jl.,  1  ) 

DO  133  k  =  I  I  ,  J 

LN  =  POLrG  Jf <,   1  1  ) 
00  134  N=t,LN 

L  =  POl  fGN(*. M) 
CALL  SCLfEDOE  1(D) 
CALL  SCL(E0GE2(D) 
\IU  CONTINUE 

133  CONTINUE 

RETURN 
132  DO  1 3S  K=l  , POINT N 

CALL  3CL(K) 
1  3S  CONT  INUE 
RETURN 
END 
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c 


SCALE(IR,S 


5 


r 


ZERO  ARRAY 

PCHANG 

SX=S(1) 

SY=S(2) 

SZ=S(3) 

JL=IR(1) 


YES 


I=POLYHE(JL,l) 
J=POLYHE(KL,2) 


1  =  1 
J=POLGN 


DO 
K  =  I, J 


r 


LN=POLYGN(K,ll) 

DO 
N  =  1,  LN 


1 


L=POLYGN(K,N) 
L1=EDGE1(L) 
L2=EDGE2(L) 


SCL  (LI) 
SCL  (L2) 


-J 


(     RETURN  J 


145 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCl 

c 

C      SCL:  PERFORMS  Rt°EATEO  f-'JL  T .  •  S  TO  SCALE  THE  SELECTFD  IMAGE 
C  IN  THE  X,  Y,  AND  Z  DIRtCIIUNS 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc cccn.ee 

SUBROUTINE  SCL(LR) 

COMMON  /AAA/  XEC120)  ,  YE(  l?n)  ,ZE(  120)  ,POINTN 

COMMON  /He/  S*,SY,SZ 

COMMON  /FF/  PCHANG,THETA 

INTEGER  PCHAMfe(20u),POlNTN 

IF(PCHANG(LR).EQ.l)  RETURN 

XE(LR)  =  xE(LR)  *Sx 

YE(LR)=YE(LP) *SY 

ZE(LR)=ZE(LR) *SZ 

PCHANG(LR)=1 

RETURN 

END 
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XE(LR)=XE(LR)*SX 
YE(LR)=YE(LR)*SY 
ZE(LR)=ZE(LR)*SZ 
PCHANG(LR)=1 


C 


RETURN 


)M7 


CCCCCCCCCCCCCCCCCCCCrcCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCLCC.Ct 

c 

C'    TRANSL:  TRANSLATES  A  SINGLE  POLYHEDRON  OR  THE  ENTIRE  IMAGE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCCCCCCCCCCCCCLCC 
SUBROUTINE  TRAHSL(IR,T) 
DIVFNSIC-N  T(3)rlR(?) 

INTEGER  POLY  HE (10,?)  ,POIYGN(60,  1  1  ) ,EDGE 1(100) ,EDGfc2( 100) , 
&PCHANG(?00),POLGN,EDGEN, TRASH, POIN1N, POL  YHN,SHAD(<iO) 
COMMON  /AA/POLYmE»POLYHN 
COMMON  /Ab/POLYGN,ROLGN,SHAD 
/AC/  EDGtl , EDGES, FOGEN 

/AAA/  xE(l?0),YE(1<?0),ZF(l?0),ROINTN 
/FF/  PChANG, THETA 


30 


106 
105 

103 

107 


/EE/1 <,H,TZ 


TN 


COMMON 

COMMON 

COMMON 

COMMON 

TX=T ( 1 ) 

T  Y  =  T (?) 

TZ=T(3) 

DO  30  11=1 ,POI 

PCHAN(,(  II  )=0 

JL=IR(l ) 

IF(JL.FG.51 )  GO  TU  103 

KL=IR(?) 

J=POLYHE(KL,?) 

II=POLYrlF.(JL,  1  ) 

DO  105  K  =  l  , J 

LN  =  POLiG'l(K,  1  1  ) 

DO  106  N=l ,LN 

L=PULYGN(* ,N) 


CALL 
CALL 

CONTINUE 
CONT  INIJE 
kETURN 
DO  107  K  =  l ,P01NTN 

CALL  NEXTPT(K) 
CONT INUE 
RETURN 
END 


NFxTPT(FDCEl  (L) ) 
NEX!PT(EDGE?(L) ) 


IkQ 


a 


TRANS(IR,T)J 


ZERO  ARRAY 
PCHANG 


TX=T(1) 
TY=T(2) 
TZ=T(3) 
JL=IR(1) 


KL=IR(2) 

I=POLYHE(JL,l) 

J=POLYHE(JL,2) 


r 


1=1 

J=POLGN 


DO 
K=I,J 


r 


i 


LN=POLYGN(K,ll) 

DO 
N    =    1,    LN 


L=POLYGN(K,N) 

L1=EDGE1(L) 

L2=EDGE2(L) 


NEXTPT 
NEXTPT 


(LI) 
(L2) 


I 


(RETURN  J 


1/+9 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCLCLCC 

c 

C      NEXTPT:  PERFORMS  REPEATED  OPERATIONS  FOP-  TRANSt 

c 

CCCCCCCCCCCCCCCCCCCLCCCLCCCCCCrcCCCCCCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCCCL 
SUBROUTINE  *EXTPT(LR) 
INTtGER  PLHAMGUOO)  ,POINTN 

COwMON  /AAA/xt  (  120)  ,  rE(  120)  ,ZE(  t?0)  ,POINTN 
COMMON  /FF/POANG,  1HET  A 
COMMON  /FE/TX, T 1 , I Z 
IF(PCHANG(LK) .EU.l)  RETURN 
XECLRJ=xf (LR)-TX 
YE(LR)=YE(lR)-Tf 
ZE(LR)=ZE(LR)-T7 
PCHANG(LR)=l 
RETURN 
END 
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XE(LR)=XE(LR)-TX 
YE(LR)=YE(LR)-TY 
ZE(LR)=ZE(LR)-TZ 
PCHANG(LR)=1 


(RETURN         ) 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCfCCCCCCCCCCCCCCCCCCCCLCL 

c 

C        GMPKO:  MULTIPLIES  TaO  u  BY  «  MATRICES  AND  STOKES  THt  RESULT 
C  IN  ANOTHER  a  BY  Q    MATRIX. 

C 
CCCCCCCCCCCCCCCCCCCICCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCC 

SUHROUT  [fJE  GMPRD(A,B,R,N,M,  L) 
\  DIMENSION  4(-i,i4)  ,bM,«4)  ,R(a,<l) 

DO  10  K=l,'J 

DO  10  Jsl t4 

R(K,J)=0.0 

DO  10  1  =  1  .IX 

R(K, J)=R(K, J) *AIK ,  I  )  *fl(I  , J) 

RETURN 

END 


10 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCC 

c 

C        GPRD:  MULTIPLYS  A  1  BY  «  VECTOR  TIMES  A  4  .BY  a  MATRIX  AND 
C  STORES  THE  RESULT  IN  A  -l  BY  1  VECTOR. 

C 
CCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCL.ee 

SUBROUTINE  GPRD(A,B,R) 

DIMENSION  A(iJ)»B(4,*l),R{4) 

DO  10  1  =  1  ,t\ 

R(I)sO.O 

DO  10  Jsl, H 
10     R(I)=R(  I  )  *A(J)«B(J. I ) 

RETURN 

END 
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2.   Hidden  Line  Removal 

Included  in  this  group  were  the  subroutines  utlized 
to  remove  hidden  lines  from  the  wire-frame  figure  produced 
by  DISPLI.  The  subroutine  REMOVE  initiated  this  procedure 
when  called. 
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CCCCCCCCCCCCCCCCCCCCCLCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCl 

c 

C      REMOVE:  VASTER  SUBRUUTINF  WHICH  Oka^S  THF  IMAGE,  AFTER  REMOVING 
C         ALL  HIDDEN  LINES,  UN  THE  SELECTED  OUTPUT  DEVICE. 
C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCC 

SUBROUTINE  KEMOvE(IK) 

COMMON  /AA/POLYHEd  0,?)  ,POLYHN 

DI^tNSION  IR(2) 

COMMON  / Ab /POL YbN#POLGN, SHAD 

COMMON  /JJ/  VSX,VSY,VCX,VCY 

COMMON  /OB/  JO 

INTEGER    PULYGN(faO#  1  1  )  ,  POLGM  ,-SHAO  ( t>0  )  ,  Pfil.  YhE  ,  POL  YHM 

CALL  KOYCLP 

CALL  SCRN 

CALL  LINK£W( [R) 

CALL  INITIA(POLGN) 

XX=VSX*2. +0.0  0  01 

IXX=XX 

YY=VSY*2. +0.0001 

I  YY  =  YY 

IPP  =  0 

JPP  =  0 

CALL  WARNCK  (IPP,  JPP,  IXX,  I  YO 

JL=IR(1 ) 

IP=POLYhE(JL, 1 ) 

ISHAD=SHAD( IP) 

CALL  DISPLPdbHADJ 

WRITE (6,1)  JO 

I  FORMAT ( IX, ' THE  NUMBER  OF  STORAGE  LOCATIONS  NEEDED  IS='#l6) 
RETURN 
END 


Xfr 


(REMOVE    ^ 


RDYCLP 

SCRN 

linkemCeO 

INITIA  (POLq>ip 


EPS=0.001 
IXX=VSX*2+EPS 
IYY=V5Y*2+EPS 
1=0 
J=0 


vJarnck(i,j,ixx,iyx) 

DISPL2 


f    RETURN  *N 
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CCCCCCCCCCCCCCCLCCCCCLCCCCCCCCCCCCCCCCCCC^CCCCrCCCCCCCCCCCCCCCCCCCCCC 

c 

C      LINKtM:  GENERATES  LINKED  LISTS  FOR  IHfc  POLYGONS  AND  EDGtS 

c 

CCCCCCCCCCCCCCCCCf.CCCLCCCCCCCCCCCCCCCCCCCCCCCCCCC.CCCCCCCCCCCCCCCCtClC 
SUBROUTINE  LINKEM(IR) 
DIMENSION  M(2) 
COMMON  /AA/HOLYhF.,POL  YHN 

COMMON  /Ab/  POLYGN,POLGN,SHAD  * 

COMMON  /A AD/  EDGE, EDGE** 
COMMON  /RA/  EOLINK,POLEOG,NEXTED 
COMMON  /Rtt/  POLLNt\,POLP  I  R 

INTEGER  POL  YGN(60f  1  1  )  f  EDGE  (2,  200  )  ,  EOL I NK ( 200 ) , POLEDG ( oO ) 
J,POLGN,£DGEM,POLPTR,SHAD(bO),POLYnE(10P2)  , PUL YHM, POLLNK (60 ) 
DO  31  1=1 .200 
31  EDLINK(I)=-1 
POLPTR=0 
JL=IR(  1  ) 

IFCJL.EQ.il 1    GO  TO  2000 
KL=IRC2) 
JM  =  P0LYHE( JL,  1  ) 
KM=POLYHE (KLi 2) 
GO  10  2020 
2000  JM=1 

KMrPOLGN 
2020  DO  200  [sJM,KM 

POLLNK(  I  J=POLPTR 
POLPTR=I 
J=POLYGN(I,  1  1  ) 
LR  =  POLYGM(  1,1) 
K=iFNDtO(LK) 
POLEDGC I )=K 
DO  201  N0=2,J 

LK=POLYGN(  I, NO) 
EULINK [Y   )=IFMDED(LR) 
K=EDL1NK(K) 

201  CONTINUE 
EDLINK(K  )  =  0 
K=POLEUG(I 3 
J=EDGE(?,«  ) 
JT=EDLINK(K) 

IFCJ.NE.tOGF  (  1  ,JT)  .AND.J.NE.FDGF(2,  JD)  CALL  IS/UP 
&    (EDGE ( 1 ,k ) ,E0GEC2#K) ) 

202  IF(K.EU.O)  GO  TO  200 
J=EDLINK (K) 

IFU.Nf-  .0. AND. EDGE  (?,K)  .NF.EDGEt  1  ,  J)  )  CALL 
&    ISwAp(KOf,E  (1  ,  J), EDGE  (?,  J)  ) 
K=J 

GO  TO  202 
200  CONTINUE 
RETURN 
END 


l  DC 


c 


LINKEMdR 


SET    ENTIRE 
AdRAY     SDLINK 
TO    -1 


POLPTR=0 
jL  =IRU) 


YE£. 


KL=IR(2) 

JM=POLYHE(JL,l) 

KM=POLYHE(Kl,2) 


I=JM 


POLLNK(I)=POLPTR 
POLPTR=I 
J=P0LYGN(I,1D 
LR=POLYGN(I,l) 


K  = 

IFNDED(LP) 


?OLEDG(I)=K 
NO  =  2 


6 


LP  = 
POLYGN(I,NO) 


UO=NO+l 


EDLINK(K)= 
IFNDED(LR) 


K  = 
EDLINK(K) 


JM  =  1 
KM=POLGN 


YES 


EDLINK(K)=0 

TERMINATES    LIST 
SORT    EDLIMKO 
LIST    SO   THAT: 


EDGE(1,I)    OR    EDGE(2,I)    = 
SDGE(1,I+1)    OR    EDGE(2,I+D 
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CCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCr.CCCCCCCCCCCCCCCCCCCCCrcCCCCCLCCrLfi'- 

c 

C      IFNDEu:  USFD  BY  LINKF.M  TO  F  iho    EMPTY  STOWAGE  LOCATIONS  IN 
C  THL  LIST  IJSF.O  TO  LINK  [HE  EDGES  OF  F  ACM  POLYGON. 

C 
CCpCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

FUNCTION  lFNOLOtV) 

COMMON  /AAD/  LPGF,FOGt'M 

COMMON  /PA/  EDlINK,POLEDG,NEx  TFD 

INTEGER  EDGE (2,200)  ,EDGfc.M  ,  EOL  INK  (200  )  ,  °OLEOG(fc>0) 

IFNDEOsM 

IF(EDL  lr;K  (M)  .EQ.-l  )  RETURN 

EUGEM=EDGEM+1 

EDGE  (  1  rEDGE'-l)=EDGE(  1  ,+) 

EOGt (2,EDGFM)=EDGE(2,tf) 

IFNDED=EDGE* 

RETURN 

END 
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EDGEM=EDGEM+1 
EDGE(1,EDGEM)=EDGE(1,M) 
EDGEC2,EDGEM)=EDGE(2,M) 
IFNDED=EDGEM 


(    RETURN  J 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCC'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCL 

c 

C     I N I T I  A :  SORTS  THE  LISTS  OF  FOGES  FOR  EACH  POLYGON  SO  THAT  THL  EMU 
C         POINT  OF  OTJE  tOGE  IS  CGIUCEDENT  ftlTH  THE  FIRST  POINT  OF  Thl 
C         NEXT  FDGE  ON  IhE  LIST.   ADDITIONALLY*  EACH  POLYGON  IS  SORTED 
C         rtlTH  ThE  POLYGON  CLObFS'  TO  THE  VIEWER  FIRST  ON  THE  LIST  AND 
C         THE  NEXT  CLOSEST  SECOND,  ETC. 
C 
tCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCl'lCC 

SURROUT  IMfc  INI  T I  A (POL  ON) 

COMMON  /RA/  EDLlNK,PQLEDG,NLx TED 

COMMON  /Rb/  POLLNK  ,  POLDTP. 

COMMON  /RC/     POLY  A  (60),POLYRU0),POLYC(6O),POLYO(t>0)  »POLZ^N(oflJ 

COMMON  /Rl>/  XP,  i  P  ,  ?->,  «N,  YN,  £\ 

INTEGER  EDLINK(£0<J)/POLEDG(6'>)  , POLLNK (60  1  ,  POLPT'? ,  OLDP 

INTEGER  P,PULGN, CHANGE 

OLDP=0 

PrPOLPTR 
20  7  IF(P.EQ.O)  GO  TO  20  3 

NEXTED=POLEl)G(P) 

CALL  GFTKtX(I) 

X  l  =  xP 

Y1=YP 

Z1=ZP 

CALL  GFTNtX(I) 

X  3  =  X  N  -  X  1 

Y3  =  YN-Y  1 

73=ZN-Z1 

X2=XP-X 1 

Y2=YP-Y 1 

Z2=ZP-Z1 

POLYA  (P)  =  Y3*72-ir2»73 

POLYB(P)=X?*Z3-x3*Z2 

POLTC (P)=*3* Y?-x2*Y 5 

POLYD(P)=- (POLYA  (P)  *X1+P0LYB(P)  *Y1-»P0LYC(P)*Z  U 

ZMIN=0. 

NEXTEU  =  POL  EUG(P) 

205  CALL  GE1NEX( I ) 
IF(I.EO.O)  GO  TO  204 
IF(ZMJN.GT .ZP)ZMINS/P 
GO  TO  205 

20'1  POLZ^N(P)  =  7  V!IN 

IF(POLYCCP)  .Eu.O. )GO  TO  ?Dh 

OlDP=P 
20*  PsPOLLN*-  (P) 

GO  TO  20  7 

206  POLGN=POLGN-l 
IF(OLDP.EN.O)     GO    TO    20$ 
PGLLMUOLOP)=HOLLNK(P) 
GO    TO    20* 

209  POLPTR:POLLNK (P) 

GO  TO  20fl 
203  CHANGE=0 

OLDP=0 

PsPOLPTK 
215  IF  (P.F.Q.O)  GO  TO  211 

JsPOLLNMP) 

lF(J.EQ.0.OH.POLZMN(P).LF.PliLZ,''N(J)  )  GO  TO  212 

IF(OLOP.E'J.O)  CU  TO   213 
PULLNk  fOLOP)=J 
21 'I  POLlNis(P)=POLLNK(J) 
POLLNM  J)=P 
CHANGL=  1  •  -  " ~~" 
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ni_op=J 

GO  TO  215 
213  POLPTRrJ 

GO  !0  214 
212  OLDP=P 

P=POLLNk(P) 

GO  TO  215 
211  IF  (CHANGE. E'M 

RETORW 

END 


1)  GO  TO  20  3 
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c 


INITIA(POLGN) 


OLDP=0 
P=POLPTR 


using  sub.  getnex(  ) 

ACQUIRE  3 
NON-LINEAR  POINTS 


COMPUTE  POLYGON  PLANE 
COEFFICIENTS  POLYA(P), 
POLYB(P),  POLYC(P), 
POLYD(P) 


I 


ZMIN=0 

NETXED= 

POLEDG(P) 


FIND  CLOSEST  POINT  OF 
POLYGON  TO  VIEWER,  IT 

WILL  BE  ONE  OF  THE 

VERTICES 

ZMIN=CLOSE3T  ZS ( )  VALUE 


OLDP=P 
P=POLLNK(P) 


POLGN=POLGN 


REMOVE  THIS  POLYGON 
FROM  LIST  BECAUSE  IT 
IS  EDGE  ON  TO  THE 
VIEWPOINT 


P=POLLNK(P) 


© 


ORDER  POLYGONS  IN 
PCLLNK()  WITH  CLOSEST 
POLYGONS  TO  VIEWER 
LISTED  FIRST 


f       RETURN  j 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C  GETNEx:  GtTo  THE  INDEX  OF  Th<-  NEXT  EDGE  FOP  THE  CURRENT  POLtGuH 
C         AND  [HEN  FINOS  I  HE  U\Q    END  POINTS  OF  TmIS  EOGE  TU  PASS  Tu  Iht 
C         CALLING  SUePOUl  INF. 
C 

ccccccccccccccccccrccccccccccccccccr.ccccccccccccccccccccccccccccci.rrrL 

SUBROUTINE  GETNtX(I) 

COMMON    /AAO/    fcDGCFOGE" 

COMMON  /4AB/  XS(120),YS(l£0)f ZS(120),POINTM 

COMMON  /MA/  cDL INK , POLEDG,NEX tFO 

COMMON  /PC/  XP,  YP,  ZH,  x'J,  YM,  Z\ 

COMMON  /DC/  JTl,J[? 

INTEGER  EDGE(?,20O),EDLlNK(200),POlEDG(6(>),EOGfcM,POINTM 

1  =  0 

IF(NExTEn.EO.O)  ^ETuR.vl 

JTl=EuGE( 1 ,NEXTtDJ 

XP=XS( J  T 1  ) 

YP  =  YSUT  1  ) 

ZP  =  ZS(JI  1  ) 

Jf?=EUGE(2.NEXTE0) 

XN=XS(JT2) 

YN=YS(JT2) 

ZN=ZS(JT?) 

NEXTED  =  EOLl'JK  (NfcXTED) 

I  =  -l 

RETURN 

END 
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JT1=EDGE(1,NEXTED) 
JT2=EDGE(2,NEXTED) 
XP=XS(JT1)     XN=XS(JT2) 
YP=YS(JT1)     YN=YS(JT2) 
ZP=ZS(JT1)     ZN=ZS(JT2) 


NEXTED= 
EDLINK(NEXTED) 


(   RETURN   ) 
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ccccccccccccccccccccccrcccccccccccccccr.LCCCCCcccrccct;ccLCLLLLi:LC(;ccL.LL 
c 

C      WARNCK:  IS  THE  MAIM  SUBROUTINE  WHICH  DETERMINES  WHICH  LINES 
C         ARE  HIDDEN. 

C 

CCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCl 
SUPROuT  INE  *ARNCK(LEFT,  IBOT1  ,  ISIZEX,  ISIZEY) 
DIMENSION  ISTACK(56,^) 
COMMON  /AB/POLYGN,POLGN,ShAD 

/RA/  EOLlNK,POLEDG,NEXTEO 
POLLNK,POLPTR 

PULYA(bO) ,PULYH(fcO),POLYC(t>0),POLYD(60) , POLZMN(oO) 
XP,  tP, ZP,XN,YN,ZN 
PULLS1 
x  x  ( 2 )  ;  Y  Y  c  2  ) 

T  ,.\t_X  ,  AlKX,/iHY,  ,\>T  Y 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COwMON 
COMMON 
COMMON 
INTEGER 


/RfJ/ 
/RC/ 
/RD/ 
/Rf-/ 
/PH/ 

/RG/DE'LT 
/Db/  J(J 
/DC/  J  I  1,J12 
EDLlNKfdOO) ,  POLEDG(oO) , POLL  ST (60) 


PULLNK (oO) 


239 


223 


22\ 


INTEGER  PULYGN(t>0,  1  I)  ,POLG* , FOLPTR, P,  !HETA,CELTAT,PENET,HlDt 

INTEGER  SURRM>,SH4D(60)  ,  UL^P 

DATA  ISIPIR/I3HAD,EPSILN/Or 1 ,0.0001/ 

JD  =  0 

WLXsLEFI 

SIZE=ISIZEx 

WRX=KLX*SIZE-EP3ILN 

SlZE=ISI7tY 

ft  6  Y  =  I  d  0  T  T 

WTYsWBYfSI ZE-EP3ILN 

SURRND=0 

INTFR-O 

ZMINMX=0. 

P  =  POt  ^TR 

IF(P.EQ.O)  GO  TO  21* 

IF(POLZMN(P).Gr.ZMlNMX)  GO  10  ? 1 8 

theta=o 
nexted=poledg(p) 

CALL  GFTNEXdJ 

IF  C  I  .EO.O)  GO  TO  219 

CALL  CLJP2(JR) 

IF(JR.FO.O)  GO  TO  220 

POLLSI (P)=INTER 

INTER=P 

THETA=-1 

GO  10  219 
220  THFTA  =  THFT A tDEL I  AT 

GO  TO  221 
219  CONTINUE 

IF(  1AHS( THE f A) .EQ.B)  GO  Tu  222 

P=POLLNK (PI 

GO  TO  ?Sl 
222    POLLSI fP)sSURRNO 

SURKNO=F 

Z1=GF  F7(P,WLX,'aHY) 

Z2  =  GE  r?(P,WLX»ftIY) 

Z3  =  GE  r7(P»WRX,«HY) 

Zq=GEI7(P,wRX,wTY ) 

ZMINKXsAMAX UZl#72»Z$rZ«) 

PsPOLLNK(P) 

GO  10  225 
21B  ZMlNlsO. 

ZH1N2=0. 

?MIN5  =  0.  .  . 
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ZMINa=0. 

ZMAxl=0. 

ZMAX?=0.  v 

ZV,AX3  =  0. 

ZMAxa=o. 

HlOtR=0 
PEN£T=0 
227  tF(SURRNO.FQ.O)  GO  TO  22'J 
Z1=GETZCSURRND,  ,jLX,/jBY) 
Z2  =  Gfc  TZ1SURRMD,  .*LX,/iTf  ) 
Z3=GETZ(SURK\D,nRX,ivBY) 
Z<J=GE  rZ(SU«*ND,'APX,*TY  ) 
I F  f  /  1  .  G F  .  /  M  I  r.  i  )  go  (0  22^ 
IFCZ2.GE.ZVIM2)  GO  TO  22S 
IF  (Z3.GE  .  Z  v  t  >J  3  1  GO  fO  ?<?S 
IF  (Za.GE.ZvIr;u)  GO  TO  225 
HlDER=Sl)RKNO 
Z  M I N  1  =  Z 1 
ZVAxl=Zl 
ZMIN2=Z2 
ZMAX2=Z2 
ZMIN3=Z3 
ZMAX3=Z3 

Z  m  I  N  a  =  z  ^ 
Z,VAxa  =  Za 
PENET=0 
GO  10  ??h 

225  IF  CZ1 .LE.Z^axi  ) 
IF (Z2.LE.Z«Ax2) 
I F  ( Z 3  .  L  E  .  I  ma  x  3  ) 
IF(Za.LE.ZMAx«) 

226  SURRND=POLLST(S 
GO  10  227 

292  PENb  T  =  1 

IF(Z1  .LT.ZMIfJ]  ) 
IF(ZI.GT.ZMAXl) 
IF(Z2.LT.*M1N2) 
IF(Z2.GT.Z«AX2) 
I F  (  Z  3 .  L  I  .  L  M I W  3  > 
IFtZ3.GT.ZWAx  5) 

if  fzi.LT.zi^ir-j'n 

IF(Z4.GT  .ZKAX4) 

GO  TO  226 
22U  IF(PENET.EQ.l)  GO  TO  22b 

OLOP=0 

Ps INTER 
22<XU     IFIP.EQ.OJ  GO  TO  229 

IF (HIOEk.cO.O)  GO  TO  229 

Zl=GETZ(P,ALX,rtPY) 

Z2=GFTZ(P, «L*,WlY  ) 

Z3=GEFZ(P#aKX,*»Y) 

Z4=GF  FZ(P,k\RX,wTY) 

IF(Zl.LE.ZMAXl)  00  10 

1F(Z2.LE./'wAX^m  GO  TO 

IF(Z3.LE.Z«AX3)  GO  TO 

IF(Z<i.LE.ZMAxa)  GO  TO 

JsPOLLST  (P) 

IF (OLUP.EU.O)OO  TO  231  ! 

PULLS  I  (OLPP)sJ 

GO  FO  231 
230  OLDH=P 

PENfc 1=1 
_   IF (Zl .GE.ZM1NI )  GO  10  ?2<\ 


GO 
GO 
GO 

GO 
URrth 


Z  m  L  N 
I  v  A  x 
ZM1N 

Z*"AX 
Z  M  I  M 

Z  M  A  X 
/  *  I ',' 
Z"AX 


TO  2^? 

fO  2l>2 

TO  2^2 

TO  292 
D) 


l=Zl 

1  =  Z  1 

2  =  Z2 

2  =  Z2 
i  =  £3 

3  =  / 3 

a=Z'i 

a  =  z^ 


250 

230 
2*0 
2  30 
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TO  2331 


JJ?)  CALL  I$AAP(JJ1,JJ2) 


IF(Z2.GE.ZMIN2)  GO  fO  226 
IF(Z5.GE.2MIN5)  GO  10  228 
II-  (Z4.GE.ZMIM4)  GU  TO  226 

PtNET=0  I 

GO  TO  231 
2311  INTEP=J 
231  P=PULLST(P) 

GO  10  ?2nu 
229  IF(INTEK.EG.O)  GO  TO  232 

IF(POLLSTUUTER).NE.O)  GO  TO  228 

NEXTEU=POLEl>G*(  IhTER) 

233  CALL  GETNtX(I) 

IF(  I  .tQ.O)  uO  TO  232 

CALL  CLIP2CJP) 

IFCJR.EQ.-U  CALL  SHOrtIT(XX( 1 ),YY(l ) , XX (2 ) , Y Y ( 2 ) , ISHAD, U ) 

GO  TO  233 
2261  IF(PENET.EQ.l)  GO  TU  234 

LP=POLLST( INTER) 

If-  (POLLST  (LP)  .Nfc  .0)  GU  10  25a 

NEXlfcU=POLEDG( IKTER) 

I  A  T  =  0 
2331  CALL  GETNEX(I) 

IFd.EO.OJ  GO  TU  2282 

CALL  CL1P2CJR) 

IF(JR.EQ.O)     GU 

IAT  =  IATM 

J  J  1  =  J  I  1 

JJ2=J12 

IP (JJ1 .GT 

XT1=XX(  1  ) 

YT1=YY  (  1  ) 

XT2=XX(2) 

YT2=YY(2) 

GU    TO    2331 

IF( IAT.GT 

IAT  =  0 

MEXTE0=POLEDG(LP) 

CALL  GETMEX(I) 

IF(I.EQ.O)  GO  TU 

CALL  CL IP2(JR) 

IF(JP.EO.O)  GU 

I  AT  =  I  AT  +  1 

JK1 =JT  1 

JK2=JF2 

IF(JK1 .GT.JK2) 

GO  TO  2332 
2263  EFCIAT.ur.l)  GO  TO  23a 

IF (JK 1 .NE.JJl )  GO  TU  23a 

IF (JK2.NE.JJ2)  GO  TO  234 

CALL  SHOW  IT (XT  t , Y T 1 , XT  2, YT 2, I  SHAD, 0) 

GU  TO  23? 
228  IFUSlZEX.GT.n  GO  10  228  1 

JFUSIZF  Y.G1  .1  )  GU  rO  22«  1 

CALL  SHOWl 1 (hLX,ttBY,ttLX,WHY, I  SHAD,  1  ) 

GO  TO  23? 

234  icc  =  ii>izrx/2 

ICX=1SIZEa-1CL»? 

lCC=ISIZFY/2 

ICY=ISIZEY-ICC*2 

IF(  ISI7EX  .1  }.  I  )  C~U    TO  '.SO 

ISIZE K=ISIZtx/2 

IF(ISlZfcY.FU.l)  GO  10  3oO 

ISlZFY_sISI7EY/2 


226? 
2332 


1 )    GO  TO  23a 


2263 


TO  2332 


CALL  I3WAP(JM,JK2) 


l6? 


236 


237 


23H 
232 


350 


351 
360 


361 


LtFT=lEFT+I3IZFx. 
ISIZEXrISIZLXMCX 
DO    235    1  =  1  ,t| 

ISTPT  R  =  T jTPTKf 1 
I  S  I  ACM ISTP1P, 1  )=LEF7 
1SUCK  l  IoTPTP,2)=IbOTT 
ISIACK(  ISTPTK, 3)=ISTZEa 
ISTACK( rSTPTR,<»)  =  ISIZEt 
GO    TO    (236, 237,23*, 235; 
IBUTT  =  IBOT  dlSlZEY 
ISIZEY=ISIZEYtICY 
GO    TO    235 
ISIZEX=IS1ZEa-ICx 
LEf-  T  =  Lt  FT  -  IS  IZt  X 
GO    TO    235 
IS1ZEY=ISIZEY-ICY 
IB0TT=IB0TT-1SIZEY 
CONTINUE 

IF(ISIPTR.LE.O)     RETURN 
LEFI=lSlACK(IdTPTR,l) 
IBOn  =  ISTACK(ISIPTR,2) 
ISIZEX  =  ISUCK(  13TPTk,3) 
ISIZEY=IS1ACKCISTMTR,«) 
ISTPTW=ISTPF»-1 
GO    TO    23^ 
TSIZEr=[SiZEY/2 
IBOTT  =  T601THSTZFY 
ISIZEY=IS1ZEY+ICY 
DO    351     1=1 ,2 
ISTP1  R  =  ISIPfRH 
ISTACK( [STP1 9, 1 )=LEFT 
ISTACKdSTP  TP,2)  =  IPUTT 
ISTACM ISTPFR, 3)=1SIZEX 
lSTACK(ISrPTR/«)=ISIZEY 

isiZEY=isize  it-icy 

IBOTT=IBOI T-ISIZEY 

CONTINUE 

GO  TO  232 

LEFl=LEFT+I3IZEx 

ISIZEXsISIZEXtlCX 

DO  3M  1  =  1,2 

ISTPTR=ISIPfPt  1 

ISTACK(  ISFPIP,  1  )=LEF  F 

ISTACK(ISIPTR,2)=IHOTT 

ISTACKdSfPTR,  3)  =  I51ZEX 

ISTACK(lSlPFO,'4)  =  ISIZtY 

I5IZFX=ISlZt<-ICX 

LEFT=Lt"r  T-I3IZFX 

CON! INUE 

GO  10  232 

END 
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;fYSS 

$rss 

POLLST(P)=INTER 
INTSR=P 

POLLST(P)     = 
' SURRND 
SURRND=P 

i 

^•^-~v. 

*r 

o~- 

P=POLLNK(P) 

DIVIDE  WINDOW 
INTO  FOUR 
EQUAL  WINDOWS 
AND  PUSH  ALL 
FOUR  ONTO 
STACK 


THINKER 

C~ 


)© 


SELECT  WINDOW  OFF 
THE  TOP  OF  THE 
STACK 


CLASSIFY  DISPLAY  WINDOW 


VIEW 


Titers  r.rTrej   MOReVT^N 
VPOLYGON^    THAN   \^J 


A/IEWABL^' 


QM 


DISPLAY  PART 
OF  EDGE  WHICH 
IS  INTERSECTS 
WINDOW 


DISPLAY  PART 
OF  EDGES 
WHICH  INTERSECT 
WINDOW 


DISPLAY  DOT 
AT  LOWER 

LEFT-HAND 
CORNER  OF 
WINDOW 
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INITIALIZE  X-Y  VALUES 
OF  FOUR  WINDOW  CORNERS 
WLX=LEFT  WBY=IBOTT 

WRX=LEFT+ISIZEX 
WTY=IBCTT+I5IZEY 


CLASSIFX  POLYGON  P 


K3 


POLLST(P)=5IRRND 
S"URRND=P 


<As 


Z1=GETZ(P,WLX,W3Y) 
Z2=GETZ(P,WLX,WTY) 

Z3=GETZ(P,WRX,WBY) 
[  Z4=GETZ  (  P  ,  WRX  ,  IVTY ) 


THETA=0 
NEXTED=POLEDG(P) 


I 


ZMINMX=MINIMUM  OF 

(Z1,Z2,Z3,Z4) 


GETNEX(I) 


j^Q 


CLIP2CJR) 


P=POLLNK(P) 


THETA= 

■^^"THETA  +  DELTAT 


.  BEGIN 
THINKER 


POLLST(P)=INTER 

INTER=P 

THETA=-1 
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2MINl=ZMIN2=ZMIN3=0 
2MIN4=ZMAX1=ZMAX2=0 
2MAX3=ZMAX4=0 
-iIQER  =  PENET=0 


I=SURRND 
Z1=GETZ ( I , WLX , WBY ) 
Z2=GETZ ( I , WLX , WTY ) 
Z3=GETZ(I,WRX,WBY) 
Z4=GETZ(I,WRX,WTY) 


MO 


HIDERsSURRND 

ZMIM1=ZMAX1=Z1 
ZMIN2=ZMAX2=Z2 
ZMIN3=ZMAX3=Z3 

7MTN4=ZMAX4=Z4 


PENET=1  -  UPDaTI 
ZMIN'S  &  ZMAX'S 
WITH  Zl,  Z2,  Z3 
&  Z4  COMPUTED 

ABOVE 


SURRND=POLLST(I) 
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YES 


FAILURE' 


OLDP=0 
P=INTER 


NEXTED= 
POLEDG(INTER) 


USING    G~TZ    (     )    COMPUTE 
Z1,Z2,Z3,Z4    FOR    POLYGON 

P 


GETNSX(I) 


NO 


CLIP2(JR: 


YES 


FAILURE 


PENST=0 
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SHOW IT 
(WLX,WBY,WLX,WBY, 

SHAD,1) 


• 

* 

NO 

I=ISTPTR 

LEFTsI STACK (1,1) 

IBOTT=ISTACK(I,2) 
ISIZEX=ISIZEX(I,3) 
ISIZEY=ISIZEY(I,4) 
ISTPTR=ISTPTR+1 

•* 

* 

INITIALIZE 
FOUR  CORNER  6 

ICX=(ISIZEX)  MODULO  2 
ICY=(ISIZEY)  MODULO  2 
ISIZ5X=ISIZ£X/2 


LEFT=LEFT+ISIZEX 
ISIZEX=ISIZEX+ICX 


D  0 
1=1,4 


ISTPTR=ISTPTR+1 

JJ=ISTPTR 

ISTACK( JJ,1)=LEFT 

ISTACK(JJ,2)=IBOTT 

ISTACK ( J J , 3 ) =ISIZEX 

ISTACK ( J J , 4 ) =ISIZEY 


RETURN 


WHEN  1=1: 

IBOTT=IBOTT+ISIZEY 

I5IZEY=ISIZEY-ICY 


WHEN  1=2: 
ISIZEX=ISIZEX-ICX 

I  T.F.FT=T.F.FT-.ISI7EX 


WHEN  1=3: 

ISIZEY=ISIZSY-ICY 

IBOTT=IBOTT-ISIZEY 
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LP=PGLLST(INTSR) 
IAT=0 


DIVIDE  THE 
WINDOW 


NEXTED=POLEDG( INTER) 


GEIMSX(I) 


CLIP(JP) 


YES 


IAT=IAT+1 

JJ1=JT1 

JJ2=JT2 

XT1=XX(1)    YT1=YY(1) 

XT2=XX(2)    YT2=YY(2) 


v^ 


I5V/AP 
(JJ1,JJ2) 


IAT=0 
NEXTED=POLEDGE(LP) 


GETNEX(I) 


CLIP2(JR) 


YES 


IAT=IAT+1 

JK1=JT1 

JK2=JT2 


1 


SHOW IT 
XT1,YT1,XT2,Y/T2 
ISHAD,    0) 


I  SWAP 
;jKl,JK2) 


W 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCLCC 

c 

C      GETZ:  OtTER^INFS  THt  DEPTh  OF  ThF  SELECTEO  POLYGON  AT  A rj Y  PUIi.T 
C  ON  THE  DISPLAr  SCREEN,  I.E.  THE  SREEN  COURUINATE  Z  VALUE. 

C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCClTCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCL 

FUMCT I  ON  &E  rZ( I ,*, Y) 

COMMON  /RC/  POLYA(bO) ,PuLYR(frO) ,POLYC(60)  ,  POL  YD  (  60  )  ,  POLZMN  ( t»0  ) 

GETZ=(-PnLYA(I) *X-PULYR(I ) *Y-POLYDfI  )  )/POLYC( I  ) 

RETURN 

END 
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£ 


GETZCI,X,Y) 


GETZ  = 


-fpOLYA(I)*X+POLYB(I)*Y    + 
POLYD(I)T/POLYC(I) 


j 

(        RETURN       J 
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CCCCCCCCCCCCCCCCC'CCCCCCCC'CCCCCCCfCCC'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCLLLCL 

c 
c 
c 
c 
c 
c 

CCCCCCI 


CLIP2:  CLIPS  TH£  SELECTED  EDGE  AGAINST  1HE  CURREN1  DISPLAY 
WINDOW  IF  THE  EDGE  INTERSECTS  THE  WINDOW  OR  COMPUTES  THE 
ANGLE  SUttTfcNDED  Br  THE  EDGE  nHJCH  IS  USED  TO  DETERMINE  IK 
CUKREMf  POLYGON  SURRUUNDS  THIS  WINDOW. 


lHt 


:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCL 
SUBROUTINE    CL1P2(I) 
COMMON    /RG/    DtL  F  A  f  ,nlx,«\RX  ,.\RY,.nTY 

/PD/xP,YP,ZP,XN,YN,?N 

/RH/  XX(£),YY(2) 


ICHK(2,4) 
IC(2),  IS, IN 


YY(  1  ) 

Y  Y  ( 2 ) 

TO  250 


1  ) 
2) 


COMMON 
COMMON 
COMMON  /PI/ 
COMMON  /RJ/ 
INTEGER  DELTA! 
DELTAI=0 
IiM  =  2 
IS=1 

X  X  (  1  )  =  X  N 
XX(2)=XP 
YY(1  )=YN 
YY(2)=YP 

IC(1 )=JCODE(xx(  1  ) 
IC(2)=JC00E (Xx {d) 
257  ICOT=IC(l ) *IC{?) 
IF  CICOT  .E(J.U)  GU 
DO  55  KK=1  ,4 

IAAA=ICHK(1,KK)+ICHK(^,M<) 
TFUAAA.EU.2)  GO  TO  251 
55  CONTINUE 

IF  (ICCIS)  .EiJ.O)  CALL  ISwAP(IS,IN) 
IF(ICHK(IS»l).EQ.O)  GO  TO  253 
CALL  PUSH(0,/;LX) 
GO  TO  257 

253  IFfICHK( IS, 2) .cJ.O)  GO  TO  254 
CALL  PUSH(0,WRx ) 

GO  TO  257 

254  IFCICHK(IS,3).EU.O)  GO  TO  255 
CALL  PUSH( 1 ,wdY ) 

GO  TO  257 

255  CALL  PUSH(t,wTY) 
GO  TO  257 

250  I=-l 
RETURN 

251  I  A  1  =  I  ANGLE fXN,YN) 
IA2=IANGLfc (xX( IS) »YY (IS) ) 
IA3=IAMGLL(XP,YP) 

I  A  1  =  I  A  P-I A  1 
IA2=1A3-IA? 
CALL     IDET(lAl) 
CALL     IDETUA2) 
DF.L  T  A  I  =  1  A  1  ♦  I  &? 
1  =  0 

RETURN 
END 


17? 


(cLIP2(I)  J 


DELTAT=0  IN=2  IS=1 

GET  EDGES  TWO  ENDPOINTS 


XX(1)=XN 
YY(1)=YN 


XX(2)=XP 
YY(2)=YP 


COMPUTE  LOCATION  OF 
TWO  ENDPOINTS  WRT 

CURRENT  DISPLAY 
WINDOW 


EN DP 01 N 
<Q  "IS" 

viE;,;iRT  F 


I  SWAP 
CIS, IN) 


n 


IA1=IANGLE(XN,YN) 
IA2=IANGLE(XX(IS) ,YY(IS) ) 
IA3=IANGLE(XP,YP) 


PUSH  ENDPOINT 
"IS"  CNTC  SCREEN 


IA1=Ia2-IA1 
IA2=IA3-IA2 


IDET  (IAl) 
IDET  (IA2) 


DELTAT=IA1+IA2 
1=0 


f    RETURN         J 
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CCCCCCCCCCCCCCCCCi".CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"CCLLLLLiLi.i.LCii.i.i. 

c 

C      IANGLE:  USfD  BY  CLIP?  TU  DETERMINE  THfc.  ANGLE  SUBTENDED  bY  AN  EDGE 
C         WHICH  DOtS  NUT  INTERSECT  ThE  CURRENT  wlNDOrt. 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCC 
FUNCTION  UNGLE(X,Y) 

COMMON  /RG/  OtLTAT  ,  WLX  ,  4RX  ,'/,BY  ,i\lT  Y 
INTEGER  OELTAI 
IF(X.GE.WLX)  GO  TU  ?80 
IF(Y.LE.WTY)  GO     TU  £81 
IANGLE=3 
RETURN 
281  IF(Y.GE.WBY)  GO  TO  ?«? 
IANGLt=b 
RhTURN 
26?  IANGLE=u 

RETURN 
280  IF(X.LE.^RX)  GO  TO  ?«3 
IF(Y.LE  .Vi  I  YJ  GO  TO  2*a 
IANGLE=1 
RETURN 
28<J  IF(Y.GE.WBY)  GO  TO  ?*<d 
IANGLt=7 
RETURN 
285  IANGLt=0 

RETURN 
28  3  IF(Y.GT./:l  Y)  IANGLE  =  ? 
IF( Y.LT.WBY )  I  ANGLE  =  6 
RETURN 
END 
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YES 


YES 


IANGLE=1 


(return 


YES 


IANGLE=7 


IANGLE=0 


RETURN 


> 


NO 


C 


NO 

m — 


RETURN 


IANGLE=3 


RETURN 


IANGLE=5 


IANGLE=4 


_Y_££ 


^*C   RETURN   ) 


IANGLE=2 


YES 


IANGLE=6 
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CCCCCCCCCCCCCCCCCCCCrcCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLTLCC 

c 

C      TUE  r :  USED  dY  CLl^?  TO  CORRECT  THE  SUdTENDED  ANGLE  UF  *\    EDGE, 

C 

CCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCLrCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrcCtCilt 

SUBROUTINE  IDET(I) 

IF  (  1  ABSt  I  ) .LE . 3i  RETURN 

IF(l.GE.O)  GO  TO  2e>0 

1  =  1+8 

RETURN 
?60  1=1-8 

RETURN 

END 
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NO 

'  t 

1=1-8 

1=1  +  8 

• 

p 

(     RETURN        J 


132 


CCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCl 

c 

C      JCODE:  TO  DETERMINE  IF  4N  Ei\T  POINT  OF  AN  EDGE  IS  VISIBLE 

C  IN  TmE  CURRENT  KlNDO*  A')u  IF  NOT  COMPUTES  THE  POSITION  OF  1Mb 

C         END  POINTS  ON  THE  SCPJt'l. 

c 

CCCCCCCCCCCCCCCCCCCCOCCCCCCCCCC  I.  CLCCCCCCCCrCCCCCCC.CCCCCCCCCCCCCCCLCi.ee 
FUNCTION  JCODE (X,Y, J) 
COMMON  /PG/  DELI  AT#rtLX,-.«PX,(vfiy  fWTY 

COMMON  /PI/   1CHK(<?,4) 

INTEGER  DELTA1 
DU  <?70  1  =  1  ,  a 
ICHKCJf I )=U 
?70  CONTINUE 

IF(X.LT.NLX)  1CHK(J,1)=1 

IF(X.GT.MRX)  LCHMJ,2)si 

IF  (Y.LT  .WBY  )  1CHK(J,3)=1 

IF(Y.GT.«1Y)  ICHK(J,a)=] 

JCOOE=ICHK(J, I )+ICHN(J,2)+ICHK(J,3)+ICHK(J,<n 

RETURN 

END 


-i  0' 

1^> 


sJCODECXjYjjJ 


D    0 
1=1,4 


:chk(j,d=o 


YES 


ICHK(J,1)=1 


YES 


.NO 


ICKK(J,2)=1 


YES 


ICHK(J,3)=1 


YES 


ICHK(J,4)=1 


JCODE=ICHK(J,l)+ICHK(J,2) 
+    ICHK(J,3)     +    ICHK(J,4) 


C 


RETURN 


1% 


CCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCrCCLCCCC 

c 

C      PUSH:  USED  BY  CLIP?  TU  DETERMINE  THE  VISIBLE  PORTION  OF  THIS 
C  EDGE  IN  TMfc*  CURpENT  DISPLAY  WINDOW. 

c 

CCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCuCC.CL 

SUBROUTINE  PUSH(IA,BT) 

COMMON  /Ph/  x<(2).YY(2) 

COMMON  /PJ/  IC<«2)rIS,IN 

IF(IA.EO.l)  GO  IC  2  7S 

VVCIS)s(YY(IN)-YY(IS})4(HI*XX(IS))/(XX(iri)-XX(IS))*YV(XS) 

XX(IS)=BT 

GO  TO  276 
2  7S  XX (I S)  =  ( XX ( IN) -XX ( I S ) ) *  IB T -Y Y ( I S ) ) / ( Y Y ( I N) -Y Y ( I S ) ) +XX ( I S ) 

Y  Y  (  1  S  )  =  B  T 
276  ICUS)=JCOD£(XX(  JS),YY  (IS),1S) 

RETURN 

END 
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u>ush(ia,btJ 


NO 


YES 


YY(IS)=  [yY(IN)-YY(IS)]»  [bT-XX(IS)] 
'rxx(IN)-XX(IS)J     +  YY(IS),XX(IS)  =    BT 


>XX  ( IS  )  =  [XX  ( IN ) -XX  ( IS  )}  *  f  BT-YY  ( IS  )] 
/(YY(IN-YY(IS)J    +    XX(IS%YY(IS)    =    BT 


-*T*- 


IC(IS)=JCODE(X(IS) ,Y(IS) ,IS) 


(    RETURN        J 
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ccccccccccccccccccccccccccccccccccccccccccccccrcccccccccccccccccccrcc 
c 

C      SHOhlT:  STOKES  THE  I^AGE  IN  THF.  APPROIATE  ARRAYS  FOR  DISPLAr 

c       by  subroutine:  disply<?. 
c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCLC 
SUBROUTINE  SHOWlT.(Xl,Yt  ,X2,  Y2,  I,  J) 
COMMON  /DA/  XSS(?000),YSS(?000) 
COvMO*  /OB/  JO 
JO=JD+l 
XSS(JO)=Xl 
YSS(JO)=Yl 
JO=JD+l 
XSS(JD)=X2 
YSS(JO)=Y<? 
RETURN 
END 
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fsHOWIT(Xl,Yl,X2,Y2,I,J)    J 


JD=JD+1 
XSS(JD)=X1 
YSS(JD)=Y1 


JD=JD+1 
XSS(JD)=X2 
YSS(JD)=Y2 


C     RETURN        J 
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CCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCLCCCCCCCCCLCCCLCl 

c 

C      DISPL2  :  ACIUALLY  DRI.hS    THE  IMAGE  WITH  ThE  HIDDEN  LR'tS  REMOVED 

C         UN  THE  SELECTED  DEVICE. 

C 

ccccccccccccccccccccccccccr.cccccrccccccccccccccccccccccccccccccccirccc 

SUBROUTINE  DISPL2USHAD) 

COMMON  /DA/  XdSlPQOO)  ,  Y5>3(?OOu) 

COMMON  /OH/  JD 

INTEGER  VICTOR, COLOR 

DATA  tPSfACC/O.uOOl ,200.0/ 

I=CULOP( I5MAD) 
DO  40 U  1  =  1  ,  JO, 2 
11=1+1 

xi=xssm 

X2=XSS( I l) 
Y1=YSS( I  )/2.0 
Y?=YSSl  I  I  )/?,0 
Kl=VtCT0R(X1 ,Y1,X2,Y2) 
I F  (  K I  .  L  T  .  0  )     M  R 1  T  E  (  to  ,  J  ) 
400     C0N1  lM.lt 
RhTUKiJ 
S  FURMAK'THE    FUNCTION    SECTOR    FAILED') 

END 
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(displ2(ishad)) 


NITIATE  COLOR  OF 
RE-FRAME  IMAGE 


DO 
1=1, JD, 2 


11=1+1 

Xl=XSS(I) 

Y1=YSS(I) 

X2=XSS(II) 

Y2=YSS(II) 


I 


RAW  VECTOR 
r(Xl,Yl)  TO 
(X2,Y2) 


C 


I 


RETURN 
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3-   Hidden  Surfaces 

By  calling  the  subroutine  SURFACE,  this  grouf  was 
utilized  to  display  the  object  with  its  hidden  surfaces 
removed,  cr  tc  display  the  hidden  or  back  surfaces,  as 
determined  bj  the  calling  parameter  ILOOK. 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C         SURF  AC:  IS  A  MASTER  SUBROUTINE  rtHlCH  CALLS  THE 

C  SUBROUTINES  TO  IRANSFORM  OBJFCT  COORDJNATcS  TO  SCREEN 

C  COORDINATES  AND  DISPLAYS  fhf_  OBJECT  rtlTH  SOLID  SURFACES. 

C  AUDI T  IONALLY,  SURFACE  CAM  DISRLAY  ThF  SURFACES  AHlCH 

C  ARE  CLOSEST  TO  THE  VIEWER  OR  IT  CAN  DISRLAY  AN  OBJECT'S 

C  BACK  SUPFACES. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCfCCCCCCCCCCCCCCCCCClCL 

SUBROUTINE  SUNFAClIStMLOUK) 

COMMON  /AAD/EDGE(2,200)  ,EDGEM 

COMMON  /AAR/XSU20),YS(120),ZS(120),POINTM 

COMMON  /BA/EMIL3T (POO) ,P (2, 200 ) , EuGLST 

COMMON  /TA/  I  ACT Vt  (60) ,  IFRELS 

COMMON  /TB/IYLEFT(60), I YRGHT (60) 

COMMON  /TC/lXSLFT(60),IxSRGr (oO),SEGFST 

COMMON  /TO/XLEFT (oO),*RIGHT(60),ZLFFT(60),ZRIGHT(&0) 

COMMON  /TE/xSPNLF, XSPNRG, XRESL 

COMMON  /TF/1BXCNT, IBxTYP 

COMMON  /TG/  BXLEF  T  ,'i*RGhT  ,«Zl.t.FT  , BZRGHI  ,BZMIN,BZMAX 

COMMON  /Th/SXLEF  r,SXRGHr,SZLEFT,SZRGMl 

COMMON  /T1/1BSEG1 , IUSEG2, D I V , SD1 V , IBFULL, ISFULL 

COMMON  /TJ/SEGSAM, (MPLS1 , IV.RL32,PKEV IS 

COMMON  /T*/PULSEG(60) ,POLGnN(60) 

COMMON  /TL/DXLEF  T  (60)  ,I)XRGHT  (60) 

COMMON  / TV/SAvFkE , SAMLST , SAMLNK ( 1 20 ) , SAMX (120) 

COMMON  /TN/IMPLF T , XLS  I SM 

COMMON  /TO/bEbCNT  , LSTSF.G,  I  Y 

COMMON  /Ab/P0LYGN(60, 1 1 ) ,  PDLGN , SHAD (60 ) 

COMMON  /JJ/VSx, VSY, VCX, VCY 

DIMENSION  lYENTR(2«y) ,DZLEFT (60) ,DZRGHT (60) , CHANGE (60) 

DIMENSION  StGLSI  (60),  I5P(2) 

INTEGER  PGLYGN,POLGN,SHAD,SEGLST,POLSEG,CHANGE,CHG,SEG,SEGl 
INTEGER  EDGE  ,E  I3GF.M ,  EN  T LST  ,  St  GF S  I ,  S  AM-F RE  ,  P  T  R ,  P ,  P I  ,  POLCHG ,  POLbOH 
INTEGER  PUlNTM,EDGLST,StGSAM,3EGCNT,SEGAC  r,SEGLO,SEGOUT,SAV'L.Ni\ 
INTEGER  SAMFS1 , SAMLST , SAMPLE , CURSEG, PRE V  IS, SAMX 

DATA  MAXSEG, APS/60, 0.000 1/,SAMF ST /O/ 

CALL  ROyCLP 

CALL  LL1R 

CALL  SCRN 

CALL  IMT2(ISR) 
I  YRES  =  2.0* VbY  + APS 

CALL  SMO'-VlN(IYRtS) 

00  101  I=1,IYkES 
101    lYENTk(I)=0 

XRESL=?.0*VSX 
IxRES=XPESLtAPS 
MHsMAXSEG- 1 

1  ACTVL  (MAXSEGJ  =  0 
DO  ^5  1=1 ,MM 

53  lAClVEd  )  =  I  f  1 
MM=MAXStG*2 
SA^LN"  (MM)=0 
MM=MM-1 

DO  VI  1=1 ,MM 

54  SAMLNK( I )=I »1 
IFPELb=l 
SAMFRt=l 
IMPLS1 =0 
IMPLS?=0 
SEGF  ST=0 

PfRsFOGLSI  ... 


1  Q2 


56 


57 


58 


55 


6a 


62 
61 

60 

65 


NE.O)     GO     10    S7 


f'E.O)    GO    10    5  7 


7u    58 


IF(PTR.EG.O)     GO    TO    55 

NFXT=t  NTL3I  (PTR) 

I=P(1  , P  T  «  J 

IFd.NE  .  0.  AND. SHAD (I  )  , 

I=P(a/PIP) 

IF  (  I  .wE.O.Ai*D.SHAD(  I  )  , 

PTP  =  NitXT 

GO     TO    56 

JsEORt( i,PTK) 

K  =  EDGt  (2,PTH) 

IF(YS(J).LE  .YS(K))    GO 

CALL    ISrtAP(EDG£(  1  ,PTR)  ,tDGE(P,PTR)  ) 

J  =  K 

I=Y3(  J  )  tO.Q'-iP^Q 

1FCI.LT.1 .OR.I.GT.IYRES)    GO    TO    100 

ENTLST (PTR)=1 rENTR(I) 

IYENTR(I)=PTR 

PTR  =  NtX  f 

GO    TO    5r> 

DO    5R    Ii  =  l  ,  1  YKf b 

Y=  1  Y 

POLCHO=- 1 

SEG  =  SfcGf-ST 

IF  (SEG.EG.O)    (,0    TO    60 

XLEF  T  (Sksj  =  XLLFT  (3F',)  tDXLt  F  f  f  SFG) 

YRIGHI (SEG)  =  XRICHf (SFG) tDXRGHT (SF  G) 

ZLEFT(SEGj=ZLEFr(SE'G)+DZLEFl  (SEG) 

ZKIGHT(SEG)=ZRIGHT (3FG)tC/RGHl(SFG) 

m=lYLEPT(SEGH1 

1Y?=I YRGHI CSFG)t 1 

I  YLtF  T  (3EG)=I Y1 


I  YRGHT (3EG)  =  I r? 
IF  (  IY1  .NE.O.ANO 
PFR=POLGC  H3FG) 
IF(PTR.EQ.0J  GO 
IF  (CHANGE  (P1R)  .! 


lY^.'JE.O)  GO  TO  6  1 


TO  oZ 

e.oj  go 


ro  6i 
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CHANGE(PTR)=POLCHG 

POLCMG=PTR 

GO  TO  61 

CALL  RMxSKT(SEG) 

CALL  RF  IBLK (SLGJ 

SEG=IxSKGT CSEG) 

GO  TO  6a 

PTR=lYE*TR(IY) 

If  (PTK.fcO.O)  GO  TO  06 

IVVI=EOGE ( 1 ,P!R) 

IW2=E0GE(2,P1R) 

lYFRSlsfSdVVl  ) 

I  YLAST  =  TS(  1  VVcM 

1DELY=[ Y  P  <S  T -  1 YLA3T 

RE  A  L  D  Y  =  Y  S  (  I  V  V  c> )  -  Y  3  (  I  V  V  1  ) 

IFUDtLY.bF.  .0)  GO  TO  o7 

XSlUPE  =  (*SCi  W2)-XS(  I  VVl  )  J/REALOY 

XF  IkST  =  x.S(  I  v'V  1  MX  SLOPE  »(Y-YS(  IVV1  )  ) 

ZSL0Pfc=(Z5(  1W2)-ZSC  IW1  )  J/KEALOY 

ZF  IRST=ZS(  I  Wl  )  *ZSLOPt*(Y-Yii(  I  VVl  )  ) 

DO  oH  1=1 ,? 

PI=Pf I,PTR) 

IF  (PI  .F.U.O)  GO  TO  6H 

IF  (CMAf.'UE  (P!  )  .NE.O)  bl)  10  6<J 

CHANGE (PI )sPOLCHG 

POLCHGrPl 

S£G  =  SECLSf (PI  ) 
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71 


70 


73 

7a 

72 


60* 
609 

6tt 
67 

93 


66 


G) ) .AND. 


EQ.XPIGHT (SEG) )  .AND 


PREVIS=0 

JF(SEG.EQ.O)  GO  TO  70 

I T  E  1  =0 

IF((XFIRST.LT.XLEFT(SEG) ) .OR  .  ( ( XF 1 RST .EQ.XLEFT (SE 

(X SLOPE .LI .DXLEFT(StG))))  I  IF  1=6 
ITE2=0 
JF((XFIRST.LP.XRIGHT(SEG)  > .OR. ( (XFIPS1 

(XSLOPF..L1  .DxkGhT (StG)  ) J )  ITE<!  =  « 

r  y  i  =0 

IFCIYLEFT(SEG)  .LT .0)  I r 1=? 

I  Y?  =  0 

IFUYRGHKSEGJ  .LT.0)IY2=! 

n  =  i Ttn i rE2+i  y i  + 1 Y^+ 1 

GO    TO    (3,3, 3,; ,3, 70, 3,72, 3,3, 70,72,3, 70, 70,70), II 

PRF  V  I3=3EG 

SEG  =  PtJLSEG(3E';  ) 

GO    TO    7  1 

SEG1  = (GTHLk i r  M 

IF  (SEGl  .E'J.O)    GO     10    loO 

POLGOMfbFGl )=PJ 

XLEFT(SfcGl)=xFLRST 

DxLlFI  (SEGl )  =  X*LOPE 

ZLEFKStGl  )-n  iKSr 

DZLEF I (bFGl )=Z  iLOPE 

I  YLEF  r  (SEGl  1  =  1  it  L  < 

CALL    POT  X3T  (SE  '•  1  ) 

IF(PREVIS.EQ.O)    GO    TO    73 

PQLSEGCPRtVJ 5)=iFGl 

GO     TO    7a 

SLGLST (PI )=SEG1 

P0L3EG(oEG1 )=SE ? 

GO  10  6H 

SEG1=IGTBLK(IR) 

IF  (SEGl  .E'.J.O)  GO  TO  160 

PULGOJ(oEGl )=PI 

XLEF  T (SEGl  ;  =  XLEF  r(SEG) 

DXLtF  HSEG1  )=i>xl  'i  T  (SEG) 

ZLEf  T  (SEGl  )  =  ZLFFM  SEG) 

PZLLFI  (SEGl  )=DZLEF  T  (St  (7) 

I  YLLF  r (SEGl  )  =  [YLErT  (StG) 

IYLEF f (SEG 1=0 

XRlGHl  (SEGl  )=XFIR  ''J 

OxRGHl (SEGl )=XSLOPt 

ZRIGHT(SEG1  )-lf  H5I 

DZRGHl (of Gt )=Z3LOP " 

IYRUHI (SEGl )=10ELY 

CALL  HUJXoT  (SEGl  ) 

IF (PREVIS.EW.U)  GU  10  bOR 

P0LSEG(PREVIS)=SEG1 

GO  10  6  0 9 

SEGLST (PI )=SEG1 

POLSFGCSEG1 )=3EG 

PRE  VIS  =  SEG1 
COM  INUE 
PIRsENTLSKPTH) 
GO  TO  63 
PRcV  l5  =  StG 
Sf G-FOLGtG(StG) 
GO  TO  7:> 
IF (H0LCMG.C3.-I )  GO  TO  /5 
PisHOLCMG 
POLCHG=CMANGE (PI  ) 
CHANGE  (Ml  j=0 


19^r 


76 


77 


79 

80 


78 


81 


82 

75 

8a 


PPE*/IS  =  0 
S£G=StGLST (PI ) 
IF(SEG.tQ.O)    GO 
I  Y 1  =  I YL  EF r (SEG) 
I  Y2= J YPGbT  CSEG) 
IF  (IY  1  .LT  .O.a.'mO 
IF  (IY1  .EG.O.AfjO 
IFdYl  ,.\E.O 
IYLEFT (SEG) 


TU    bb 


IY2.L  f .0)     GO     TO    Pi 
IV2.EU.0)    GO    .10    77 

OR.IY2.GE.0)    GO     Tl      78 

lYPGHf(SEG) 


IYRbHT (SEO)=0 
XLEFT(SEG)=xRIGhT(SEG) 
DxLtFT (SEG)=OxRGHI (SFG) 
ZLEFT  (SEGj=ZPir,h{  (SfcG) 
DELEFT  (bEG)=OZP/GHT(SEG) 
GO     TO     7o 
I=POLSEG(SEG) 
IF(PREVIS.EU.U)    GU    TO    79 
POUSEG(PRcVlS)=l 
GO    TO    PO 
SEGLST  (PI  )  =  I 
CALL    RMxSRT(SEG) 
CALL    RtTbLMStG) 
SEG=I 
GO    TO    7o 
NEXT=POLStG(StGJ 
IF(foEXT.Eu.O)    GO     FO     110 
IF (IYLEFT (NEXT ).GE.O]    GO    1 0    8 1 
IYPGHT (bEG)=I rLEFT (uExT ) 
IYLEFT (WE  <T)sO 
XRIGHT(5EG)=XLEFT(NExT) 
DXR&HT(bEG)=OXLEFT(.\ExT) 
ZRIGhf  (SFG)=ZLEF T (NEX I ) 
DZRGH[(SEG)=D*LfcFr (NEXT ) 
GO     M    7b 

IF(lYkGhT(NExr).GE.O)  GO  Tn  Hi 
IYRGHI  CSE'G)  =  I  YKGHl (rtExT ) 
I  YRGhT [NEXT)=0 
XPIGHT  (SEG)sXRIGH  I  (NEXT  ) 
DXRGHT(SEG)=OXRGHI  CiE  *T) 
?RIGH1 (SEG) =7kIGHT( NEXT) 
D2RGHT(SEG)=nZRGHl (NEXT) 
GO    10    7o 

PGLSEG(SEG)=POLSEG(MExn 
CALL    RWxSRT  Citx  T  ) 
CALL    RE  fHLK(fiEX  I  1 
GO    TO    7o 
CHG=0 

SEG=SEGFSI 

IFCSf G.tO.O)  GO  Tu  85 
1  =  JxSkGI  (bEi.) 
IF  (1. 1 0.0)  GO  TO  8* 

IF  (xLEFT(aEG).LE.XLEFI(l) )  GO  TO  HS 
CmC=1 

K=IXSLF1 (5EG) 
IF(K.NE.O)     !XbRGT(K)=I 
IXSLF  t (  1  )=K 
IXSLFI (5FG)=I 
KrJxSkGI ( i ) 

IF(K.wE.OJlxSLFT(K)=SEG 
IXSKGI  (bFG)-K 
IXSPG1 ( I )=StG 
IFCSFGFSr.Efi.SEG)     SfcGFSI=I 

r,ii   to  «a 
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85  SLG=IxSRGT(SEG) 

go  ro  8a 

83       IF (CHG.tQ.l )GO    TO  7b 
S£GACT=0 
SEGCN1 =0 

87  IF(IMPLST.EGl.O)  GO  F  0  86 
J=IMPLSr 

If''.PLST  =  IXbRGT  (J  J 
CALL  HEIBLK(J) 
■  GO  10  8  7 
89       XSPNRG=XRESL 
GO  10  9  0 

88  XSPNPG=XL3TU0 
GO  TO  90 

86  !MPLSI=JvPLSa 
IMPLS2=0 
CORoEG=SEGFST 
X5PimRG  =  0  .  U 
SAMHLf-.=64VP5T 
SAMlS  T=U 
XLSTUO=0.0 

98        XSPNLf-  =ASPNKGt  1  .  0 

IF  (XSPf.'LF  .LL.XLbTUD)  GO  TO  88 

IF (SAMPLE  .EO.O)  GO  TO  89 

XSPhRG=SA/x (SAMPLt ) 

IX=SAMPLE 

SAMPLL  =  S*-,Lr^  (IX) 

SAMLNK(IX)=b*'vFRE 

SAMFRL  =  I  < 

XLS1U0=aSPNRG 

IMPLFT=0 

I  ft  X  C  N  I  =  U 

SEGOUI=0 

PREVIS=0 

SEG=SFGAC  I 

IF  (SEG.EQ.OJ  i,Q  TO  94 

MEX1=IACT VF(SLG) 

XXXSXSPNPG* 1 .0 

IF(XRIGhT(SEG).GE.XXX)  GO  TO  95 

IF (PRfcVlS.FO.u)  GO  10  "6 

IACTVE (PREVlS)sNEXT 
97       IACTVE(SEG)=SEG0U1 

IF(SFG0UT  .EQ.O)  SEGL0=SEG 

SEG0Uf=SEG 

IF (XRIGnT (SfcG) .GE.XSPNLF )  GO  TO  ( 800 , 80 i ) , ROOK 

800  CALL  LCUKhR(Sb'G) 
GO  JO  802 

801  CALL  LOOfvKl  (Sf  G) 

802  SEG=^EXT 
GO  10  9^ 

96       SfcGACl=NExT 

GO  TO  97 
95       IF  (XLEFI  f3Eb).LE.XSPNKG)  GO  TO  (  80  5/  804 )  ,  I  LOOK 

803  CALL  LOUKfcW(SEG) 
GO  TO  rtoS 

R  0  H  CALL  L  0  0  K  K 1 ( S I G ) 

805    PKtVIb  =  ;.F.G 

SfcG=UhX  I 

GO     fO    92 
9u  IF(CURStG.EO.U)    GO    TO    10>< 

SEG=CUKbE  ii 

IFCXLfcFI CSEG) .GT.xSPNRG)  GO  TO  I  OH 

C0P5Fl,=  I  XSRGf  (CURSEG) 


90 
91 


9? 
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IF  (POLGUN(Sf.G).NE.O)     GO     TO    99 
IF(ALEFI (SEU).LT. i .0)    GU     \C    600 
IFfXLfcFI  (SEG)  .GT.xRESD    GU    TO    600 
IPG=P0LSEG(SEG)/1 OOOO 
IFUPU.NE.LSTSEG)    GO    TO    bOO 
IMPLFT=SEb 
GO    TO    94 

600  CALL    PMXSR1 (SFG) 
CALL    REfBLMStG) 
GO     10    on 

99  XXX=XLEFT(SEG)+1 .0 

IF (x xx.GE  .XKlGh [ (SFG)  )     GO    TO    9a 
XSS=XSPwRb* 1 .0 

IFfXRIGhT (SEG).GE.XSST    GO    TO    601 
IACIVE(SEG)=SEG0UT 
IF(SFGOUT.EU.O)    SEGLO=SEG 
SEGGUT=SEG 
60?  GO     TO     («U6,807),ILOOK' 

806  CALL    LuOrsEMbEG) 

GO  TO  94 
80  7     CALL  LOOKR] fSEG) 
GO  10  94 

601  IACT\ZF.(SfcG)=SEGACT 
SEGACI=SEG 

GO  10  6  0? 
108      CALL  IHINKfM  I  T9, SEG) 
GO  10  (oOi,  160) , I  IP 
IF  (bEbOUT  .E J.O)  GO  TO  604 
IAC  IVE(SEGLU)=SEGACT 
SFGACI=SEGOUT 

60a     i =  u  i  v 

ISSPGT  =XSPNRG 

IF  (i.LT  .  [SSRGT )  GO  TO  60S 

I=f XSPNLF t xSPNRG)/2.0 

605  XSPNRG=1 
GU  TO  91 

603       IF ( IMPLF  I  .EQ.O)  GO  TO  60b 
CALL  RMXSRT ( [MPLF  I  ) 
CALL  HETRLK(IMPLFT) 

606  lF(XSPNRt;.LT.XRESL)  GO  TO  98 
IF  (SAMLSI  .Eu.O)  GO  TO  610 
SAMLNr\(SAMLi>n=0 

GO  10  61 1 

610  SAiSF5T  =  0 

611  CALL  SHOW 
59      CONTINUE 

RETURN 
100    WRITE  (6,  It? I  ) 
121    F0HV.A1  (  'EkPOP: 

RETURN 
110    WRITE  16, 11  I  ) 
1  1  1    FUW'^A  I  (  '  t  kwyp: 
RETURN 
lbO  hkl  IE(6,999) 
999  forma  I (^x,  *  THt 
&li"il  ■ ,  /n. '  rut 

RE  TURN 
END 


THE  Y  COOROlNAfE  IS  UFF  THE  SCREEN.' J 


NEXT=0' ) 


NUMHtR  OF  SEGMENTS  GtNEPATED  FUR 
STOWAGE  PPOVICEO.'J 


1H15  SCAN 


19? 


SURFAC 


,(ISR,ILOOK 


) 


CONVERT  OBJECT  COORDINAr 
TO  SCREEN  COORDINATES 


^S 


ORDER  ACTIVE  LIST  OF 
SEGMENTS  BY  INCREASING 
X  VhLUE  OF  THE  LEFT 
ENDPOINT  1  9 


ZERO  ARRAY  IYFNTRO,  LINK 
ARRAYS  INACTIVE ()  AND 
SAMLNK  ON  THEMSELVES 


INITIALIZE  POINTERS 


EXAMINE  EDGES  AND 
DETERMINE  SCAN  LINE  EACH 
ENTERS  THE  DISPLAY.  STORE 
THIS  INFO.  IN  IYENTRO 
ENTL5T( ) 


I 


IY=1  -IY  IS  THE  SCAN  LINE 
POINTER 


UPDATE  SEGMENT  ENDPOINTS 
USING  SLOPES  OF  THE  X  &  Z 
2-D  LINE  EON.'S  AND  MARK 
THE  POLYGON  OF  AN  EXITING 
SEGMENT  AS  CHANGING  FO 
ACTIVE  SEGMENTS 


COMPUTE  SLOPES  OF  THE  X  & 
Z.2-D  LINES  AND  THE  INTER- 
SECTION OF  ALL  ENTERING 
EDGES  WITH  SCAN  LINEIY  Jc\ 

n^  XL) 


PLACE 

EACH 

ENTE 

RING 

EDGE 

INTO 

THE  PROPER 

LOCATION 

OF  THE  TWO 

POL':' 

GCNS 

f    ,\ 

SSGME 

;mt  LISTS 

-XV 

SEGCNT=SEGACT=0 

AND  REMOVE  ALL  EXITING  .-^ 

IMPLIED  EDGES f  lOj 


INITIALIZE  POINTS  AND  X 
VALUE  OF  FIRST  SPAN 
(XSPNRG)  TO  ZERO.  USING 
PREVIS  SCAN  LINES  SAMPLE 
POINTS  DIVIDE  SCAN  LIN 
INTO  SPANS. 


PUT  ALL  SE 
INTERSECT 
TWO  LISTS, 


GMENTS  WHICH 
THIS  SPAN  INTO 
SEGOUT  AND 

'  12 


I 


HAVE  LOOKER  OR  LOOKRl 
EXAMINE  ALL  SEGMENTS  IN 
THESE  TWO  LISTS  TO 
DETERMINE  BOX  COUNT 


BOX  TYPE 


13 


HAVE  THINKER  DETERMINE 
IF  THE  CONTENTS  OF  THIS 
SPAN  CAN  BE  DISPLAYED^ 

14 


REMOVE  ALL  EXITING  EDGES 
FROM  POLYGONAL  SEGMENT 
LISTS,  AND  CONSOLIDATE  -- 

SEGMENT  BT.nrK  STORAGE  f    Q\ 


SHOW  SCAr 
LINE  IY 


IY=IY+1 


"TURN 


19S 


RDYCLP 

CLIP 

SCRN 

TMTTPfTSR') 


I 


IYRES=2*VSY 
IXRESL=XRESL=2*VSX 


I 


SHOV/IN 
(IYRE5) 


ZERO  aRRAY 
IYSNTR( ) 


1 


MAXSSG=60   M=MAXSEG 
MM=M-1 

IACTIVE(M)=0 


r 

i 

D    0 
1=1, MM 



i 

i 

1 

i 

L_    _    _  . 

IACTIVE(I)=I+1 

< 

' 

^I=MAXSEG*2    MM=M-1 
SnMLNK(:')=0 

i 

r 

- 

■         i 

D    0 

1=1, MM 

j 

i 

_J 

- 

1 
1 

L— . 

5AMLNK(I)= 
1+1 

1 

i 

IFRELS=1 
SAMFRE=1 
IMPLST=0 
IMPLS2=0 
SEGFST=0 
PTR=EDGLST 
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NEXT=ENTLST(PTR) 
I=P(1,PTR) 


I=P(2,PTR) 


?TR=NEXT 


J=EDGE(1,PTR) 
K=EDGE(2,PTR) 


© 


ISWAP 
SDGE(1,PTR) , 

EDGE( 2,PTR), 


J=K 


I=YS(J)+0, 99999 


ERROR 


J 


ENTLST(PTR)aIYSNTR(I) 

IYENTR(I)=PTR 

PTR=NEXT 


6 
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Y=IY 

P0LCHG=-1 

SEG=SEGFST 


Q. 


PTR=IYENTR(IY) 


xleft(seg)=xlef(5eg)+dxleft(seg) 

xright(seg)=xright(seg)+dxrght(seg) 

zleft ( seg ) =zleft ( ssg ) +dzleft ( seg ) 

zright(seg)=zright(seg)+dzrght(seg: 

iy1=iyleft(seg)=iyleft(seg)+1 

iy2=iyrght(seg)=iyrght(seg)+1 


IWl=EDGE(l,PTR) 

IVV2  =  EDGrT;(2,PTR) 

IYFRST=YS(IVV1) 

IYLAST=YS(IVV2) 

IDELY=IYFRST-IYLAST 

REALDY=YS ( IVV2 ) -YS ( IVVl) 


PTR  = 

ENTLST 

(PTR) 


PTR=P0LGCN(5EG) 


YES 


NO 


XSLOPE=  XS(IVV2)-XS(IVV1) 
REALDY 

xfirst=j<s(ivvl)+xslope* 

|y-ys(iwi)1       . 

ZSLOPE=HZS(IVV2)-LxS(IVVl)  / 
^ REALDY  J 

ZFIRST=ZS(IVVl)+ZSLOPE* |Y- 
YSCIVVI)!         L 


RMXSRT(SEG) 
RETBLK(SEG) 


(rSS 


5£G  = 
lYSRGT(SEG) 


CHANGE     (PTR 

PCLCHG 

POLCHG=PTR 


-0 
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1=1 

— "- 

0 

■' 

1 

PI=P(I, 

PTR)^ 

1=1+1 

PI=0 


10 


^^CH/aNGE 
\(PI)=0 

Nv     YES 

^                ' 

F 

CHANGE(PI)= 

POLCHG 

POLCHG=PI 

NO 

! 

f 

seg=seglst(pi) 

PREVIS=0 

IY1  =  2 


IY1=1 


II=ITS1+ITE2+IY1 
+IY2+1  i 


PREVIS=5EG 
SEG=P0L5EG 
(SEG) 


INSERT  NEW 
SEGMENT  IN 
FRONT  OF 
SEG 


ITE1=0      ITE2=0 

IY1=0       IY2=0 

XL=XLEFT(SEG) 

XR=XRIGHT(SEG) 

DXL=DXLEFT(SEG) 

DXR=DXRGHT(SEG) 


0 


PTR=ENTLST 
(PTR) 


XSLOPE    -<DXR) 
NO  T^  , 


0- 


INSERT  NEW  SEGMENT 
BETWEEN  XLEFT(SEG) 
AND    XRIGHT(SEG) 


0 
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SEG1  = 
IGTBLK(IR) 


SEG1  = 
IGTBLK(IP) 


NO 


ERROR  OUT 
OF  SEGMENT 


POLGON(SEGl)=PI 
XLSFT ( SEG1 ) =XFIRST 
DXLEFT ( SEG1 ) =XSLOPE 
ZLEFT ( S  EG1 ) =ZFIRST 
PZLEFT ( SEG1 ) =ZSLOPE 
IYLEFT ( S  EG1 ) =IDELY 


I 


PUTXST(SEGl) 


ypq 


POLGON(SEGl)=PI 
XLEFT(SEG1)=XLEFT(S2G) 

DXLEFT ( 3EG1 ) =DXLEFT ( SEG ) 
ZLEFT (SEG1)=ZLEFT(S EG) 
DZLEFT(SEG1)=DZLEFT(SEG) 
IYLEFT (SEG1)=IYLEFT( SEG) 
IYLEFT ( SEG) =0 
XRIGHT(SEG1)=XFIRST 
DXRGHT(SEGl) =XSLOPE 
ZRIGHT(SEG1)=ZFIR3T 
DZRGHT(SEG1)=ZSL0PE 
IYRGHT ( SEG1 ) =IDELY 


SEGLST(PI) 
SEG1 


POLSEG . 
(PREVIS)=SEG1 


PUTXST 
(SEG1) 


POLSEG(SEGl) 
=  SEG 


EELS 


SSGLST(PI) 
=SEG1 


POLSEG 

(PREVIS) 

SEG 


POLSEG (SEG1) 
=SEG  PREVIS 
=SEG1 
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I=POLSEG(SEG) 


NO 

PI=PCLCHG 

POLCHG=CH.-\ 

NGE(PI) 

CHANGE (PI) 

=0 

PREVIS=0 

SEG=SEGLST(PI) 

NO 


YES 


0 


JEGLST(PI) 
=  1 


POLSEG 
(PREVIS)=I 


IY1=IYLEFT(SEG) 
IY2=IYRGHT(SEG) 


RMXSRT(SEG) 
RETBLK(SEG 


PREVIS=SEG 
SEG=POLSEG(SEG) 


3EG  =  I 


NEXT=POLSEG(SEG) 


ERROR 


iylzft(seg)=iyrght(seg) 

iyrght(seg)=0 

xleft ( seg ) =xright ( seg ) 

dxleft(seg)=dxright(seg: 

zleft(seg)=zright(seg) 

dzleft(seg)=dzrght(3eg) 


0 


IYRGHT ( S  EG ) =IYLEFT (NEXT ) 

IYLEFT(NEXT)=0 

XRIGHT ( SEG ) =XLSFT ( NEXT ) 

DXRGHT ( S  EG ) =DXLEFT ( NEXT ) 

ZRIGHT(SEG)=ZLEFT(NEXT) 

DZRGHT  (  SEG  )  =DZL£FT  (  N EXT  ) 
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IYRGHTC SEG )=IYRGHT( NEXT) 

IYRGHT(NEXT)=0 

XRIGHT ( SEG ) =XRIGHT ( NEXT ) 

DXRGHT ( SEG ) =DXRGHT (NEXT ) 

ZRIGHT ( SEG ) =ZRI GHT ( NEXT ) 

DZRGHT( SEG )=DZRGHT( NEXT) 


P0L5EG(SEG)= 
POLSEG(NEXT) 


RMXSRT(NEXT) 
RETBLK(NSXT) 
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CHG=0 

SEG=SEGFST 


YES 


I=IXSRGT(SEG) 


YES 


oYES 


XLEFJ(3 
XLEFT(I 


SEG=IXSRGT 
(SEG) 


CHG=1 
K=IXSLFT(SEG) 


IXSRGT(SEG)=K 
IXSRGT(I)=SEG 


IXSRGT(K) 
=  1 


IXSLFT(SEG)=I 
K=IXSRGT(I) 


IXSLFT(K) 

=SEG 


206 


© 


J=IMPLST 
IMPLST=IXSRGT(J) 


IMPLST  =  IF1PLS2 

IMPLS2=0 

CURSEG=SEGF5T 

XSPNRG=0 

SAMPLEsSAMFST 

SAMLST=0 

XLSTUD=0 


RETBLK(J) 


XSPNLFaXSPNRG+1 


XSPNRG= 
XLSTUD 


XSPNRG= 
XRESL 


XSPNRG=SAMX( SAMPLE) 

IX=SAMPLE 

SAMPLE=SAMLNK(IX) 

SAMLNK ( IX ) =SAMFRS 

SAMFRE=IX 

XLSIUD=XSPNRG 

IMPLFT=0 


(uaY 


IBXCNT=0 
SEGOUT=0 
PREVIS=0 


20? 


SEG=SEGACT 


NEXT=IACTIVE(SEG) 
XXXaXSPNRG+1 


NO 


YES, 


SEGACT: 
NEXT 


[ACTIVE (PREVIS) 

=NEXT 


IACTVE(SEG) 
SEGOUT 


/SEG0UT=^ 

v  YES 

SEGLO 

=SEG 

^tfo 

t         ' 

SSGOUT=SEG 

m 

1 

PREVIS=SEG 
SEG=NZXT 


LOOKER(S :G) 

OR 
LOOKRKS  :;g) 


r 


.XRIGHT(SEG) 


LOOKER(SZG)' 

OR 
LOOKRl(SEG) 


SEG=NEXT 
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SEG  = 

CURSEG 


CURSEG= 
IXSRGT(CURSEG) 


IPO=POLSEG(SEG) 
/10000 


NO 


; IACTIVE(SEG) 

SEGACT 
SEGACT=SEG 


IACTIVE(SEG) 
SEGOUT 


3EGLO 
=SEG 


SEGOUT=SEG 


I 


LOCKER(SEG)  OR 
LOOKRl(SEG) 


IMPLFT=SEG 


RMXSRT(SEG) 
RETBLK(SEG) 

i — 


0 
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THINKR(ITR,SSG) 


NO 


YES 


IACTIVS(SEGLO)= 

SSGACT 
SEGACT=5EGOUT 


I=DIV 
ISS=XSPNRG 


YES 


I=(XSPNLF+XSPNRG)/2 


RMXSRT(IHPLFT) 
RETBLK(IMPLFT) 


SAMFST=0 


SAMLNK(SAMLST)=0 


'SHOW    SCAN 
LINE    IY 
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CCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCICLCCCCCCCCCCCCCC 

c 

C         INIT?:  LINKS  THE  LIST  OF  EDGES  IN  THE  ARRAY  ENTLSTU)  AwD 
C  STONES  THE  INDE*  OF  TmK  PuLYGGNS  /ihICH  nAVE  EDGE  I 

C  AS  A  bOUNURY  IM  THE  ARRAY  P(2,I). 


CCCCCCCCCCCCCCCLCCCLCCCCCCCCCCCCCCCCCCCCCrcCCCCCCCCCCCCCCCCCCCCCCLCL 
SUBROUTINE  IN1T2(IR) 
DIME  Mb  I  UN  I, He1.) 

COMMON  /AA/  PULYht f t 0, 2 J ,POl YHN 
COMMON  /A4/  PULYG^(bO,  I  1  )  ,  POL ON, SMAD(bO) 
COMMON  /AAO/  EDGE(2#?00),EOGEM 
COMMON  /A  AH/  XS ( 1 20  J , YS U 20 ) , ZS ( 1 20 ) , PO INTM 
COMMON  /HA/LN1LST (200) , P(2,20  0) ,  FOGLST 
COMYON  /FF /EOGCHG(?00) 
INTEGER  EUGE,EDGEM,POLYGN,P0LGN,P0INTM,SHAD/EnUS1 ,P,EDGLST, 


30 


1000 

500 


520 


521 

1020 
1010 


&POLYht , PPLYHN,FDGCHG 
DO  30  1  =  1  ,F.DGt« 

EDGCHGCJ )=0 
EDGLS1=0 
JL  =  IPl  1  ) 

IFCJL.LO.3l )GU  TO  1000 
KL=IR(2) 
J=POLyhE(JL, 1 ) 
K=POLYHt(*L,2) 
GO  TO  500 
J=l 

K=POLGN 
DO  10  10  l=J,K 

LN  =  POLYurJ(  1,11) 
DO  102  0  N=1,LN 

L=PULYGN (l,N) 

Kl=EDGE( !,L) 

IF  (»\1  .  E  iJ  .  0  )  GO  TO  1  U20 

IF (LDGCMG(L)  .10.  1  )  GO  TU 

EDGCHGCL )=1 

ENTLST (L)=LDGLS1 

EDGLSf =L 

IF(P(  1  ,L)  .EQ.OJ  GO  10  521 

P(2,L)=I 

GO  fO  1020 

P(  1  ,L)  =  1 
CON  I  INUE 
CONT  JNUfc 
RETURN 
END 


rj2  0 
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(   INIT2(IRM 


ZERO  ARRAY 
EDGCHGC  ) 
EDGLST=0 
JLsIR(l) 


EDGCHG(L)=1 

ENTLST(L)=EDGLST 

EDGLST=L 


YES 


KL«IR(2) 

J=POLYHE(JL,l) 
K=POLYHE(KL,2) 


J  =  l 
K=POLGN 


I=J 


LN=POLYGN(I,ll  ) 

N=l 


1=1  +  1 


L=POLYGN(I,N) 
K1=EDGE(1,L) 


*— — 


N=N  +  1 


YES 


-*© 


2CL 


<D 


YES 


P(1,L)=I 


E(2,L)=I 


6 
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ccccccccccccccccctccccccccccccccccccccctrcccccccccccccr.crLCCCcccrLCt 
c 

C        IGTeL*:  lb  USED  TO  OBTAIN  THE  JNDEX'OF  A  FREE  SEGMENT  BLOCK 
C  OF  STORAGE. 

C 
CCCCCCCCCCCCCrCLCCCCCLCCCCCCCCCCCCCCCCCCrCCCCCfCCCCCCCCCCCCCCCCCCLCL 

FUNCT ION  JGFBLK ( I ) 

CON'MO.^  n  A/lACTVE(60),IFRtL3 

COMMON  /Tb/  I  tLtF  r (60), iYKGrtT (60) 

U1FRCL6 

IGTbLK=0 

IF  (1  .EQ.O)  KE  rORf-i 

IYLEF I ( I )=0 

IYRGHI  ( I  )  =  0 

IFRELS=14C TvE(I) 

l(,TdL^  =  I 

RE  TORN 

END 


213 


c 


IGTBLK(I)) 


I=IFRELS 
IGTBLK=0 


NO 


<^>^<ji 


URN 


IYLEFT(I)=0 

IYRGHT(I)=0 

IFRELS=IACTIVE(I) 
IGTBLK=I 


C 


RETURN 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C  RfcTtJLK:    RETURNS    A    SEGMENT'S    BLOCK    OF    STORAGt     TO    THE    FRtt 

C  LIST. 

C 

ccccccccccccccccccccccrcccccccccccccccrccccccccccccccccccccccccccccc 

SUBROUTINE  KKIHLK(I) 

COMMON  /TA/IACTVE(60) , IFRELS 

IACTVf (I)=IFRfcLS 

IFRELS=I 

RETURN 
END 


215 


c 


RETBLK(I), 


I 


IACTIVE(I)=IFRELS 
IFRELS=I 


5; 

V  RETURN  J 
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CCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCrLCrCCCCCCCCCCCCCCLCCCCCCLiL 

c 

C        SHOw:  DISPLAYS  EACH  SEGMENT  WITH  T h£ ;.  APPRUPP I  A T E  POLYGONAL 
C  COLOR  OR  SHADE  ON  THF  KAMTEK  SCREEN. 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCLCCCCCCClCl 
SUBROUTINE  SHOW 
COMMON  /TO/  SEGCNT,LSTSEG, IY 
COMMON  /TK/  POLStGf oO) ,P0LG0N(60) 
COMMON  /Ab/  PuLYGN(60,  11  )  , POLGN , SHAD (60 ) 
COMMON'  /TP/ISPOS(bO),lSSEG(oO) 

iNlEGtR  StGCN T,POLSEGrPOLGON, POL YGN,POLGM, SHAD, VEC TOR 
INTEGER  COLOR 
ISAMP=0 
Y  1  =  I  Y 

IF  (SFGCIJT  .LI  .  n  RETURN 
DO  700  I=t,SEGCN1 

X1=ISAKP 

ISEG=ISSEG( I  ) 

IX=ISPOS(I) 

X2=lx 

IFUSEG.EG.O)  GO  TO  710 

lP=POLGOnr ISEGJ 

JLM=SHAD( IP) 

I  I=COLOR(  IL*-') 

KL=VECTGR( a1 , Yl  ,  X?,  Yl) 

IF(KL.LT.O)  GO  TO  1554 
ISAWP=1  X 


710 
700 


155M 


1 


CONT  INUE 
RETURN 
KRITE(6,l ) 

FORMA1 (iX, 

RETORT 

END 


THE    FH'mCIION    VECTCk    FMLIO'l 
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(   SHOW     ) 


ISAMP=0 
Yl=IY 


RETURN 


1  =  1 


Xl=ISAMP     IX=ISPOS(I) 
ISEG=ISSEG(I)   X2=IX 


YES 


IP=POLGON(ISEG) 
JLFI=SHAD(IP) 


) 


ISPLAY    LINE 
EGMENT    (XI,  YD    TO> 
(X2,Y1)    IN    COLOR    JI/m 


?18 


ccccrccccccccccccccccccccccccccccLCCccccccccr.ee  en  cccccccccccccrcc  i.  fc 
c 

C         SHOAIM:  OUlOhS  THE  YS  COORDINATE  VALOES  8Y  TftO  IN  OROfr- 

C  TU  DIoPLM  AN  tjrj-UISTu^  TED  IMAGE  Oh  THE  PAMTEK  AT  T  mE 

C  NAVAL  POST  GRADUATE  SCHOOL  flHICH  HAS  DOUBLE  rtlDE 

C  HORIZOMIAL  RESOLUTION  LIMES. 

C 

CCCCCCCCCCCCCCCLCLCCCLrLCCCCCCCCCCCCCLCCCCrCCCCCCCCCCCCCCCCCCCCi.fLfL 

SUBROUTINE  SHUwlN(IT) 

COMMON  /AAft/  XS(  1?0)  ,  rS(  1<?0J,ZS(  lc?0)  .PniNIM 

INTtGER  POINT" 

i  t  =  i  \n 

DO  1^0  0  LI=1,P01NTM 
YS(Ll)=YS(Ll)/?.0 
lbOO   CONI1MUE 
HI  rURN 
END 


219 


(   SHOWIN(IT)) 


IT-IT/2 


D   0 
LI=1, POINTS 


--"t 


YS(I)=YS(I)/2 


'       ■    ■> 


C    RETURN       J 
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cccccccccccccccccLCcctccccccccccccccccccccccrcrccccccLCCcccccccccLCt 

c 

c 

c 

c 

c 

c 

c 

cccc 


LOOKER:  EXAMINES  Ftit  ACIIvK  LISl  Uf  SEGMENTS  mNO  DETERMINES 
HUi'.  MANY  AR£  VlErtABLE  IN  THIS  SPAO.   IT-  ALSO  GENERA  I  ES 
A  BOX  AROUNO  ALL  VIEWABLE  SEGMENTS  AND  PA.SSES  THF 
NUMbER  OF  StGMENTS  ARt  IN  THE  BOX  ANO  BOX  TYPE  10  THE 
THlNKR. 


61  1 
61? 


613 
614 


615 


ccccccclccccccccccccccccccccccclccccccccccccccccccccccccccccclcl 

SUHKOUFINt  LOGKtR(I) 

COMMON  /TD/ALEP  T(60) ,XRiGHT (60),ZLEF  f(6U),ZRIGHT(60) 

COMMON  /TE/xSf'MLF  ,XSPNRG,  XRE3L 

COMMON  /1F/19aCNT,IMXTYH 

COMMON  /TG/bXLEF  T  ,rjARGHr,bZLEF  1  ,HZKGHT  ,HZMlN,ri7MAx 

COMMON  /TM/3/LEF  T  ,  SxRGH  T  ,S/Lr.F  I  ,  S7RGMI 

COMMON  n  l/i^SFGl  ,  IbSEG?,0Tv  ,  SHlV#  IriFUt  L,  LSFULL 

SxlEF I =XLEF I f I ) 

SXRGHT=xRIGHT C  T ) 

SZLEFT  =  7LtF  r ( 1 ) 

S/RGHl=ZRiGHl ( I ) 

ISFULL=1 

IF(SXLEF T.GI .xSPNLF)    GO 

SZLEFT=ZINT(XSPNLF ) 

SXLEFI=xSWNlF 

GO     10    6  1? 
ISFUI.L  =  U 
IFtSXKGHT.L f .aSPMRGJ    GO 

SZRGHT=Z  MT  (  XbPNRG) 

S/RGHT  =XSPNRG 

HU     (0    o 1  a 
ISFULL=0 
SDTV  =  oXt_EF  1 
IF (SXLEF T.LE 
If-  (IHxCNT  .NE 

CALL  LOADrfX I I ) 

RETURN 
IF ( lBxCNT  .Nt  .  I  )  GO  10  6  16 

Z  1  =  B Z I M  T  (  SX LE F  T  J 

Z?=b71NI CoXRGHl ) 

IF  ((BxLEF  F  .LF.SxLEFf  )  .AN!) 


tolR 


619 


TO    b  1  I 


io  oh 


XSPNLF)    SPIV=SxRUHT 
0)     GO     FO    6  15 


(i3XRGHT  .GE. SXRGH T  )  .  ANU 


& 


(Zl  .LE.S7LEFT) .A 
Zl=ZlKiT(BXL£Fl  ) 
Z?=ZloT (HXRGuT ) 
IF (SXLEF  T.GI .BxLEF  T ) 
TF (SXRGHl  .L 1  .OXKGHT  ) 
IF  (Zl  .01  .'iZLEFn  GO 
IF (Z?.GI  .rtZKGHT )  GO 
CALL  LOADrtX(I) 
RETURN         ' 
IF  (I3FULL.EJ.0)  GO  10 
IF(lBFULL.EN.O)  Go  10 


W. (Z?.LF.SZRGHT ) )  RETURN 


00  To 
00  TO 

ro  oin 

TO  ol^ 


0  10 
6T' 


bib 
olH 


TEwP  =  hxLEF  rtCOxKGHf-HxLhF  1) * ( S7LEF T -HZLfcF  I  )/(oZKGMT- 
B/.l  EFT-SZRGHT  tS/.LEF  i  ) 


CALL  XPNi)nx(f) 

IBXlYPrl 

D1V= IE  MP 

IF (hZLEF  T.t  F.SZLEF  I ) 

Rfc  TORO 
CALL  aPOOOX (  I  ) 
Rt 1URN 
IF( IHXCNT.LE. 1 )  RETURN 
IF (SXLEF  T  .01  .MXLFr  T )  GO 
IF  (Sx^GHl  .LT  .liXRKMF  )  GO 


CALL  lSr.AP(  inSEGl  ,  IHSEG?) 


10 
TO 


b?0 
b?<) 
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IF  (SZLEFT.Gf  .bZMTN)  GU  JO  (S^O 
IF(SZRGH1  .GT.b?«IfO  GO  TO  bit) 
CALL  LOADbX(I) 
RETURN 
620      IFCbXLEFT.GF.SxLEFT)  GO  TO  6?1 
IF (bXKGHT.LT .SXKGHT )  GO  Tu  n?\ 
IF(bZMAx.GT .SZLtFT )  GO  10  kd\ 
IF (OZMftx.GT.SZ^OHl  )  GO  10  ft2l 
RETURN 
62\  CALL  xPNDnx(I) 

RETURN 
END 
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LOOKER(I) 


sxleft=xleft(i) 
sxrght=xright(i) 
szleft=zleft(i) 
szrght=zright(i) 

ISFULL=1 


SEG 
%V'    HIDDE 
FROM^IEWPQ 
BY    BOKX 

.NO 

SEGMEN 

^SPANNER 


ISFULL=0 


SZLEFT= 
ZlNT(XSPNlLf) 


NO 


BOCNT=' 


SXLEFT= 

XSPNLFT 


NO 


SZRGHT= 
ZINT(XSPtiRG) 


ISFULL=0 


I 


XPNDBX(I) 


RETURN 


SXRGHT= 
XSPNPG 


SDIV=SXLEFT 


YE: 


XS 


N 


PNLFx 

1 

' 

s^^/^ 

Sul V =b 

A.n.on  x 

LOADBX(I) 


IBXCNT 
=0 


B 


YES 


(       RETURN   J 


LOADBX(I) 


RETURN 


Ififi 


SIMPLE  INTERSECTION 
SO  COMPUTE  DIVISION 
P0INT-DIYIBXTYP=1 


XPNDBX(I 


PUT  INDEX  OF 
SEGMENT  CLOSEST 
TO  'VIEWER  ON 
LEFT  SIDE  IN 
I3SEG1 


1 

(       RETURN   J 


YES 


A 


!23 


zi=bzint(sxleft) 
z2=bzint(sxrght) 


SEGMENT  "I"  IS 

HIDDEN 


Z1=ZIMT(3XLEFT) 
Z2=ZINT(BXRGHT) 


SEGMENT  "I"  IS  A 
SPANNER 


CHECK  SEGMENT  "I"  FOR  SIMPLE 
INTERSECTION 
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CCCCCCCCCCCCCCCCCCCCCCrCCCrCCCCCCCCCCCCLCCCCCCrCCCCLCLCCCCCLCLLLfTLrL 

c 
c 
c 
c 
c 
c 
c 

CCCCCi 


LUO.Pi:  FXAMINES  IHE  ACTIVF  LIS!  OF  SEGMENTS  AND  DETERMINES. 
HUW  wAtir  ARE  VIEWABLE  IN  THIS  SPA.M.   II  ALSO  L.EUE:  R  A  I  r.  3 
A  BOX  AkOuOO  ALL  Vlt.'iABLF  SEGMENTS  AMD  PASSES  THE 
NUMbEK  OF  SEGMENTS  ARE  IN.  THE  BOX  A"iD  BOX  TYPE  TO  THE 
THlfMKH. 


611 

61? 


613 

6-1  a 


615 


6ia 


6l<? 
616 


XCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCClCI. 
SURROUTIUt  L0UKK1  (  I  ) 

COMMON  /TD/XLCFTfbO) ,aRIGhT (fcu) , ZLEF  T (60) ,ZRlCMT (oO) 
/Tfc/XSPNLF, XSPNRGr xRESL 

/\t  /ihac -it  ,  rnxiYP 

/TG/bXLEFT, BXRGHI  , bZLtFT  , HZRGHT , BZMIN, BZMAX 

/Th/3XLEpT/SxRGhT,SZlEFT,SZRUHT 

/T  I/I35EG1  ,  IbSEG<?,tfIVfSr>'lV,  IBFULL,  I  SKULL 


XSf'MLF)  SniV  =  SXHGHT 
u)  GU  TO  015 


10  616 


COMMON 

CuM«-;ON 

COMMON 
COMMON 

COMMON 

SXLtF  T=XLEF  f(  i) 
SXRGHT=XRIGHT(I ) 
SZLtF  T  =  ZLtK  T(  I  ) 
SZRGHT=ZR1GhT ( t  ) 
ISFULL=l 

IFtSXLEf-T.GT.XSPNLFJ    GO    TO    oil 
SZLtF(=ZIN1  (XbPNLF  ) 
SXLtF  r=XSHNLF 
GO    TO    61? 
ISFuLL=0 

IF(SXRGHT.LI .XSPMRG)    GO    Tu    o!5 
SZRGHl=ZINT USPNPG) 
SXRGH1=aSPNRG 
GO    TO    61  a 
ISFULL=0 
SDlV=bXLEF  T 
IF (SXLEFT.LE 
IFflBxCNT.NE 

CALL  LOADI)X(  I  ) 
RE  TURN 
IFUBaCNT.ME.  I)  GU 
Z1=BZINI (SXLEF I ) 
Z2=riZINI CSXkGHI ) 
IF((BxLtFT.Lt.SXLEFT) . AND . ( B*RGHT .GF .SXRGHT ) . AND . 

(Zl  .Gt.SZLEFT)  .AND.(Z<?*GE.SZRGHT)  )  RE!  URN 
ZlsZTNT(BXLtFT) 
22  =  1  INT (BxRoHl ) 

IFCSXLFFT.GI .bXLEFT)  00  TO  018 
IF(SXRGHT.L  I  .HXWGrlT)  00  TO  olB 
IF (Zl  .Gl .H7LEFT)  GO  Tu  oiy 
IF  (Z?.GI  .BZRGttT)  GO  TO  616 
CALL  LOAObxCf) 
RE  TUR^i 
IF(ISFULL.tU.O)  GO  10  6 1 9 
IF  (]HFULL.fc.J.O)  GO  in  610 

TE'-'P^BxLEK  r*fhX»CHf-bALEF  l)»(SZLEFT-BZLtri)/(bZRGHT- 

BZLEF  r-SZKGnr  +  SZLtF  i  ) 
CALL  XPNOBXCIJ 
1BX  1  YP=1 
DIV  =  TEf-'P 
IFfUZLEFT.Gl.SZLFFT)  CALL 

RtTURN 
CALL  xPuOBX ( I ) 
RtTURN 
IF(  IBXCM.LL.  I)  K'tTURN 

IF  (SXLtF  1  .01  .I1XLEF  T)    GO    TO    6?0 
IF(SX«GHT  .L  f  .riiRGMT)     Gn     ru    hP{j 


& 


IS.'.AP(  IbSEGl  ,  IBSEG,?) 
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IF  (SZLtM.l  I  .oZMAX)  GO  in  620 
IF(SZKGHT.LT.HZM4X)  GO  TO  b20 

CALL  LOADtiXCI) 

RtTuRu 

620  IF(BXLEF  T  .Gi  .SxLEf-T)    GO    TO    o21 
IF  (bXRGItT.LT  .3xkGHT)    GO    TO    621 
IF (BZMIN.LT.SZLtFl )     GJ     10    bd\ 
IF(bZMIN.LT.SZfilGH1 )    GO    10    621 
RE  TOR.'J 

621  CALL    XPNDbX(I) 
RETURN 

END 
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c 


LCOKRKI 


SXLEFT=XLEFT(I) 
SXRGHT=XRIGHT(I) 
SZLEFT=ZLEFT(I) 
SZRGHT=ZRIGHT(I) 

ISFULL=1 


INVERSE  VIEW 


fES 


ZINTCXSPfv 


ISFULLsO 


I 


1 

LF) 


SXLEFT= 
XSPNLFT 


NO 


YES 


SZRGHT= 
Z"INT(XSPNRG 


LSFULL 


3 


SXRGHT: 
XSPNPG 


3DIV=SXLEFT 


SDIV=SXRGHT 

J 


227 


Z1=BZINT(SXLEFT) 
Z2=BZINT(5XRGHT) 


SEGMENT  "I"  IS 
HIDDEN  FROM  INVERSE 
VIEWPOINT 


0 


© 


Zl=ZINT(BXLEFT) 
Z2=ZINT(BXRGHT) 


SEGMENT  "I"  IS  AN 
INVERSE  SPANNER 


CHECK  SEGMENT  "I"  FOR 
SIMPLE  INTERSECTION 
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CCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCLCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCLLi.. 

c 

C        8/Ii'H:  IS  HSFD  HY  THE  LOOKER  TO  DETERMINE  THE  DtPlH  (THE  IS 
C  VALUE  J  OF  THE  SEGMENT  HUX  AT  AfJY  XS  VALUE  WITHIN  THIS 

C  SPAN. 

C 
CCCCCCCCCCCCCCCCCCCCCCCCrcCCCCCCCCCCCCCLCCCCCCCCCCCLCCCCCCCCCCCCCLLL 

FUNCTION  bZIMT(X) 

COMMON  /TG/oXLEFT , RXRGHT , 8ZLEFT #BZRGHT/ BZM JN,HZMAX 

IF  (ttXKGHT  .EU.bXLEFT  )     GO  TO  t.^1 

BZINT=BZLEFT+(PZWGHT-tiZLEF  T )  * (X-8XLEFT ) /(BXKGHT-BXLEF T ) 
RETURN 
631    BZINT=8ZLF.Fr 

RETURN 

END 


22? 


BZINT=BZLEFT+  f BXRGHT=BZLEFt] * 

[x-bxleft]  /  [bxrght-bxleft] 


(      RETURN        J 
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LOAOBx:  13  USED  BY 
StGf-'.EiJTS  aHICH 


rH£  LOO>vER  TO  CONSTPUC?  A  HOx  AROUND  rnf- 
APE  VIE/.AHLE  IN  THIS  SPAN. 


ccrccccccccccccccccccccccLCcr.ccccccccLCccLCcccr.crcccr.ccccr.ccccrccict 

c 

c 

c 

c 

CCCCCCCCCCr.CCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCf.tr  I  CL 
SURPOUTPJt  LOADdXCI) 
COMMON  /TF/IBXCNI , IHXTYP 

COMMON  /TG/rtXLEFT,BXRGHT,bZLEFT,BZRGHI,BZMIN#BZMAX 
COMMON  /TH/3XLEFT,SXRGHT,3ZLEFT,SZRGHT 
COMMON  /TI/IBSEG1,  IBSEG<>,  D  I  V  ,  SDI V  ,  IBFULL , ISFULL 
IBXCMT=1 
IbXl YP=0 
bxLEF I=SXLEF  I 
BxRGH  I  =$XKGrt1 
BZLEFT=SZLEFT 
BZPGH I =SZRGMl 

I  n  s  e  g  i  =  i 

RZMIN  =  BZLLF  I 

HZMAX=RZPoHl 

IF(BZv'Ir4.Gl  .rtZVAX)  CALL  SwAP  (BZMJ  N#  BZMAX  ) 

DIV=SUIV 

IBFOLL=ISFULL 

Rfc.  TURN 

END 


231 


f    LOADBX(I)J 


IBXCNT=1 
IBXTYP=0 


BXLEFT=SXLEFT 
BXRGHT=SXRGHT 
BZLEFT=SZLEFT 
BZRGHT=SZRGHT 

IBSEGlal 

BZMIN=BZLEFT 
BZMAX=BZRGHT 


DIV^SDIV 
IBFULL=ISFULL 


YES 


SWAP 

(BZMIN, 

BZMAX) 


f 

C     RETURN    J 
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ccccccccccccccccccccrcccccccccctccccccccrcccccrccccccccccccccccLCLCC 
c 

C        PUTXST:  PLACF.S  THE  SEGMENT  PASSED  TO  II  AS  THE  CALLING 

C  PARAMETER  I  INTO  UF  THE  XSOkT  LISTS,  IXSLFT(I) 

C  AND  iXSrtGMI). 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCi.CLrc 

SUBROUTINE  PUTXST(I) 

COMMON  /TC/1XSLFT (bO) , IXSRGf (bO),SEGFST 

INTEGER  SEGFST 

IF(SfcGFST.ME.O)  I XSLF I ( SEGFS T ) = I 

IXSLFT(I)=0 

IXSRGT (I)=SEGFST 

SEGFST=I 

RETURN 

END 


233 


_XES_ 


IXSLFT    (SEGFST)=I 


IXSLFT(I)=0 

IXSRGT(I)=SEGFST 

SEGFST=I 


C 


RETURN 


?7ii 


ccccccccccccccrccccLCCccccccccccrccccccceccrccr.ccccccccccccccccccuL 
c 

C        RMXSRl:  REMOVES  A  SEGMENT  FROM  THE  XSORT  LISTS,  IxSRGT(l) 

C  AND  IXSLFT(I). 

C 

cgjccccccccccccccccccccccccccccccccccccclccccccccccccccccccccccclclcl 
subroutine  r^xshtu) 

common  /tc/ixslfi (60), i xsrgt (60 ) , segfst 
integer  segfst 

IF(SEGFST.ElO.  USFGFST  =  lXSRr,  I  (I  ) 

J=IXSRGT ( I ) 

IF  (J.NE.O)     IXSLFT(J)  =  IXSLFT(I) 

J  =  IXSLF  [(I) 

IF (J.NE.O)     IXSRGI C J J  =  IXSRGT( 1  ) 

RETURN 

END 


?->^ 


c 


RMXSRT(I)] 


5EGFST-IXSPGT(I) 


J=IXSPGT(I) 


NO 


IXSLFT(J) 
IXSLFT(I) 


YES 


J=IXSLFT(I) 


NO 


IXSRGT(J) 
=IXSRGT(J) 


(    RETURN         J 
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ccccccccccccccccrccr.ccccccccccccrcccccccrcccccccccccccccrcccctr.LM'L 
c 

C        XPNDRx:  13  CALLED  BY  IHE  LOOKER  TO  XPANU  ?Ht  fs 0 X  SURRUOKO  J>G 
C  THE  VIEWABLE  SEGMENTS  IN  FHE  CUKPtfl!  SPAN. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCICLCI 
SUHP()UTI\'E  aPMDHx(I) 
COMMON  /TF/JBXCNT,IbXTYP 

/TG/BXLEFT,BXRGHI  , BZLEFT ,BZRGHT ,bZMlN,BZMAX 
/TH/SXLEFT,SXMGHT,SZLEFT,SZRGH( 
/TI/iB&EG]  ,  IoStG?,.'Mrf,3UIV,  I  UF  ULL  ,  I  SFULL 


COMMON 

COMMON 

COvMON 

IBSEC^=lBSEG1 

IbSfcGJ=I 

I  b  X  1  Y  P  =  o 

IBXChTslBxCNT+1 

IF  (SOIV.L  \  .UTV  )i)lV  =  Sf)IV 

IFCSXLEFT.LT.BXLTF  T)  bXL£F.T  =  SXLEF  I 

IF (3XKGHI  .G I  .  HXKGHT  )     BX«GHT=SXPGH1 

IFfSZLEFT.LT.H7  M  I  N )  B  I* I  Ms  SZL  EF  I 

IF(3Z*GHT.LT .H?MIN) 

IF(SZLEF  T .GT.dZMAX) 

IF(SZ*GhT.GT .BZMAX ) 

RETURN 

END 


B/V,  tN  =  SZ»GHT 
flZ'"itx;S/.l  EFT 
BZMAX=SZKGHf 


237 


(XPANDBX( 


IBSEG2=IBSEG1 
IBSEGlsI 

IBXTYP=0 
IBXCNT=IBXCNT+1 


DIV=SDIV 


YES 


1 


BXLEFT= 
SXLEFT 


_LLQ. 


YES 


BXRGHTa 

SXRGHT 


BZMIN=MINIMUM  OF 

(BZMIN,  SZLEFT,  AND  SZRGHT) 


BZM.-.XsMAXIMUM  OF 

(BZMAX,  SZLEFT,  AND  SZRGHT) 


7 

(     RETURN   J 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCf-'CCCCCCCCCCCiLL 

c 

C  ZINI:  USED  Br  THE  LOOKED  IC  CQMPUfE'THF  DfcPlM  (  £S    VALUF  ) 
C  OF  ?HE  CURRENT  SEG^ENI  AT  ANY  XS  VALUE  ,<)  I  [  H  I  N  THIS 

C  SPAN. 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

FUNCTION  ZlNT(x) 

COMMON  /TH/SXLEFT,5XRGH!  , S7th F T , SZP&HT 

IF  (SxRHHr.E^.SXLEFT)  (if)  TO  ot? 

ZINT  =  S7LFFT+  CSZRGH I-SZLEF I)*(x-SXLFFT)/(SXPGHI-SXLEFT) 

RETURN 
622    ZIMJ=SZLEFT 
PE  TUPN 
END 
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ZINT  = 
SZLEFT 


NO 


1  f 

ZINT=SZLEFT+  [SZRGHT-SZLEFt]  * 
[X-SZLEFT]/  fSZRGHT-SZLEFTJJ 


(      RETURN      J 
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CCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLrcCLCCCUi 

c 

c 

c 

c 

c 

c 

ccccc 


THINKR:  PECFIVES  THE  INFORMATION  AROOT  ML  CONTENTS  OF 

this  span  /.high  was  developed  by   rut  looker  and 

DETERMINES  IF  THIS  SPAN  CONTAINS  UJSPLAYABLE 
INFORMAT IUM. 


623 


bdd 


627 


626 


62^ 

630 


631 
628 


cccccccccccccccccccccccccccccccccccccccccccccccccccclccccccclci. 

SuRROUTiNt  THiNKP(IR,I) 

COMMON  /Th/lYLFFT(ftU),TYRCHT(t)0) 

/TC/IXSLFT(60),IX5RGI(60),SEGFST 

/TO/XLEFT(bOJ,XRIGMT(cO),ZLEFT(6  0),7HIGHl(bO) 

/Tfc/xSPNLF,XSPNPG,xR£SL 

/TF/I»xCNT, ToXTYP 

/TG/BXLEFT,BxRGH1  ,B7LF.FT,BZRGHT  ,H7'-'IN,H£MAX 

H  I/lBSEG!,lHSEr,2,0W,S0IV,IFFlJLL,ISF'JLL 

/TJ/ISLGS*4f  IMPLSI  ,  IMPt  32,  IPREVS 

/Tr/IPLSEG(hO)  ,  IPLGONf  !,0  ) 

/TL/DXLFFTC60) ,  DxRGHI (oO) 
StGFST 


COMMON 

COMMON 
COMMON 

COMMON 

COMMON 

COMMON 
COMMON 
COMMON 
COMMON 
INTEGER 
IZEKO=0 
I M I ws- 1 
IONF=l 
I  ONE  1  =  1 

IF (lRxCNT.Nt  .0)  HO  TO  623 
CALL  STOPEP( XSPNRG, iZEPu) 
IR=1 
RtTORN 
If-  (  IBXCNT  ,'JE.  I  )  GO  10  62'J 

IF (HXLEFT.NE.XSPMLF)  L*LL  STOREPCHXLFFT, IZEROj 
CALL  STUPEP(BXRGHI , IBSEG1) 

IF(bXRGHT.Nt.XSP'iRG3  CALL  S  fORFP  (XSPNRG,  I  7_EkO  J 
CALL  RECUrtDC  IHSEG1  ,  10NE,  [ONE  1  ) 
Ik=l 
RETURN 
1F(  IBaT  rP.NE.  1  )  r-0  JO  62^ 
CALL  STURtP(n [V,  IhStGl  ) 
CALL  RECORD  (  IBSEG1  ,  I  ONE,  I/ERO) 
ISEGSM=IBSF Gl *  1 oOdOt TdSEG2 
I = IMPLSI 
IPREVS=0 

IF  (I  .F.M.O)  GO  TO  62<> 
IF(ISEGSM.EO.IPLSEGCI))  GU  10  626 
TPRF VS=I 
I  =  IXSRGT (  I  ) 
GO  10  627 
IF  (  1. 1 0.0)  GO  Tl)  o2H 
IF  (IPRFVS.tU.O)  GO  If)  62^ 

IxSRGl ( IPREVS)=1X3PGT ( I ) 
GO  10  6  30 
IMPLSI  =  1  XiiRGT  l  I  J 
DXLEFT  f  I  )=DIV-XLEF 1(1) 
XLFFT(I  )=DIV 
DXX  =  XLEF  T  (  T  ) +uXLFf  T ( I  ) 
IF (NXX.L  r  .  1  )  GO  IN  6 il 
IF  (I)XX.GT  .XRF5L)  CN  ru  b  *  1 
CALL  P'll  XS1  I  I  ) 
CALL  RECORD(  I  ,  IM[!i,  Wt'Ri)) 
GO  10  b32 
CALL  RF  IRLK ( I  ) 
GO  10  632 
JsICTHLKC I TI ) 
IF  ( J.  L 0.0)  GO  TU  16  0 


z<*\ 


I  I  =  1  YRGH1  (IBSEG1  ) 
II=IYLEFT(IBSEG2) 

U  =  IYRGHT(1BSE'G?) 


IPLSEG(J)=ISFGSM 
II  =  lYLFFT(IHSEGn 
IF ( II  .LT .  iYRGnT ( IBSEG1 ) ) 
IF ( I  I  ,LT.IYLEFT( IBSEG2) ) 
IF  (I  I  .LT.IYRGHTUUSEG2)  ) 
I  YLEF  T  C J  )  =  I  I 
IPLGON(J)=0 
XLEf-  T(J)=DIV 
IXSMGT (J)sIMPLSS 
IMPLS2=J 
632      CALL  STURtP(XSPNRG,IBSEf,?J 

CALL  RELO*D(  [BSEG2, IZERO, HJMF) 
IR  =  1 
RETURN 
625    IF(xSPNLF.Ed.xSPNRG)  GO  10  ^>3  5 
IR=0 
RETURN 
6i3    I R= 1 

RETURN 
160  YlHl   IE(6,<>99  J 

999  F0RMATC2X, • THE  NUMBER  OF  SEGMENTS  has  EXCEEDED  fHE  STORAGE 
APROVIDED' ) 
IK  =  2 
END 
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IBXCNT»1 


IBXCNrr=0 


IBXCNT=1 


STOREP 
(DIVjIBSEGl) 


n 


STOREP 
(XSPNRG,0) 


RECORD 


(IBSEGl.l.O) 


;torep 

BXLEFT,0) 


IR  =  1 


STOREP 
(BXRGHT,IBGEG1) 


RETURN 


CREATE  IMPLIED  EDGE 
AND  PUT  INTO  XSORT 
LISTS  IF  THIS  IS 

FIRST  OCCURENCE  ON 
SIMPLE  INTERSECTION 


IF  SECOND 
OCCURRENCE 
COMPUTE  SCAN  LINE 
COHERENCE  FACTORS 

i     i ) 


STOREP    | 
(XSPNRG,0) 


RECORD 
(IBSEG1,1,1) 


YES 


STOREP 
(XSPNRG,IBS EGJ 2  ) 


IR  =  1 


IR  =  1 


±1 


RECORD 
(IBSEG.0,1) 


IRt=0 


f         RETURN  J 


(     RETURN       J 


IR=1 


G 


ETURN 
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o 


T 

ISEGSM=IBSEG1* 
10000+IBSEG2 
I=IMPLST 
IPREVS=0 

:SSGSK  YES    , 

:plssg(i^~ 


IPREVS=I 
I=IXSRGT(I) 


J=IGTBLK(I,  TT) 


N=IBSEG1         M=IBSEG2 
II=MINIMUM    OF    (IYLSFT(N), 
IYRGHT(N),    IYLEFT(M), 
IYRGHT(M) ) 


YES 


NO 


ii;plst= 
ixsrgtci) 


IXSRGT 

(PRSVIS)= 

IXSRGT(I) 


DXLEFT ( I ) =DIV-XLEFT ( I ) 

XLEFT(I)=DIV 

DXX=XLEFT(I)+DXLEFT(I) 


NO 


YES 


I 


RETBLK(I) 


PUTXST(I) 


RSCORD(I,-1,0) 


IYLEFTC J)=II,XLEFT(J)=DIV 
IPLGON(J)=0       IXSRGT ( J) =IMPLS2 
IMPLS2=J 
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63u 
635 


INTEGER  SA 

I=SAMf  RF. 

SAMFPE  =  S*i"LNK  (  I  ) 

IF  (SAMLST  .E.J.O)  GO  TO  bin 

SAMLMK  (SAi^LST  )  =  I 

GO  10  6*5 
SAMFST=I 
SAMLSI=1 
SAMx(I )  =  x 

RETURN 
END 


2k5 


Q 


PUTSAM(X) 


I=SAMFRE 
SAMFRE=SAMLNK(I) 


<^  SAMLSTSffij    x 

SAMF3T=I 

« 

NO 

- 

SAMLNK ( SAMLST ) «I 

- 

\ 

} 

SAML5T=I 
SAMX(I)=X 

CI 
RETURN       J 
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ccccccccccccccccrccccc 
c 

C       RECORD:  DECIDE 
C  SAVED  TO  D 

c 

ccccccccccccccccrccccc 

SUBROUTINt  RELOR 
COMMON  /iN/lv.HLF 
COMMON  /Tu/XLEFI 
COMMON  /TK/POLSE 
CO^MOim  /TL/OXLEF 
COMMON  /Te/iYlEF 
COMMON  /TK  /  SA'-'f 
COMMON  /Tt  /  XSPij 
INTEGER  POLSECS 


IF  (LFKT.F.u.O)  GU 
IF (IMPLFT.FQ.O) 
IF (XLEF] (1).G1 .X 
J=P0LI>E6(  IMHLFTJ 
I  l=Pni_SEG(  IMPLF1 
IF(I.nF.U)  GO  T 
X  =  XLE'F  I  (  [MPLFT 
CALL  POrSA'-HO 
IMPLF T=U 
636    IF  UYLEFHI  )  .OF  . 
DEL  =  XSpMF-l  .0 
XL  =  XLEF  f  r I ) 
IF  (  (LEF I . mE. -I 
IF  (  (SAMLSI  .;»E. 
&   GO  10  637 

XsXLEF T  (  I  ) 
CALL  PUT3A 
XLSIS<^  =  xSP 
6  37    U  (  IRCHT  .ECO)  R 
IF(lYRGhT(  I  ) .GE. 
IF  fXSPNKG.GI  .  aPJ 
UP  =  XSPNRGt  1 
IF(XR1GHT ( I ) .GE. 
X  =  XRIGHI  (  I  )  fDX 
CALL  POTSAM(xj 
XLS1SMSXSPNRG 
RETURN 
END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCLCCCLCC 

S  WHICH  SCAN  LINE  SAMPLE  POINTS  SHOULD  bF 
IVIUE  THE  NEXT  SCAN  LINE  IN10  SPANS. 

CCCCCCCCCCCCCCCCCCCCCCfCCCCCCCCCCCCCCCCCCCCLCL 

DU,l.EF[  ,  IMGHI) 

T,  XLS  ISM 

( e>  0  )  ,  X  R  I  Gh  T  (  6  0  )  ,  Z  L  E  F  T  (  6  0  )  ,  I R  I  OH  T  (  fa  0  ) 

G(6U) ,PULGON(60) 

T(60) , DXRGH I (oO ) 

T(faO)  , I YPGHI  fhO) 

RE,SAMLST,SAVLNK(  120)  ,3 A'- x(  120) 

LF,  aSPNRG ,  KRF.SL 

ft>.FKE  r  S AML S  T ,  S A  «L  NK  ,  S A"X , POLGON 

ID  fa  3  7 
GU  IC  fa  3b 
SPMLF)  GO  IU  <d3o 
/  1  00'.)  0 

)-j* loooo 

0  fa  Sfa 

)  ^HxLEF  f (IMPLF  T) 


-I  )G0  TO  t>5  7 


)  .AND.((XL.LF.DEL).C)R.(XL.GT  .XSPNLF)))  bO  T. 
0) .AND. (XLSISM.EO.DLL) . AMD. (LEF 1 ,NE  .- I  )  ) 

f OX  LEFT  (  I) 

M  (  <  ) 

MLF-1 .0 

F  T  LI  R  N 

-1 )  Rt TURN 

r,:iT  (  I  )  )  RE  TURN 

UP)  RF  TURN 
PGMl ( j ) 


»3  7 


2^? 


(RECORD     N 
(I,LEFT,IRGHT)J 


i/S. 


& 


)INr 


I 


AMPLE, 
PjOlNT  FOR 


EGMENT  "I"  IS 
RT  OF  AN  IMPLIED\YES 


X=XLEFT ( IMPLFT ) +DXLEFT ( IMPLFT ) 


PUTXST(X) 


X=XLEFT(I)+DXLEFT(I) 
XLSTSM=XSPNLF-1 


PUTXST(X) 


X=XRIGHT( I ) +DXRGHT ( I ) 
XLSTSM=XSPNRG 


PUTXST(X) 


2^8 


ccccccccccccccccccccccrcccccccccccccccccccccccccccccccccccccccccccrc 

u 

C  STORFP:  USFD  dY  THE  TMINKH  10  RECORD  THE  DISPLAY  DATA 
C  FOR  THE  CURRENT  SCAN  L I  J F .   THE  XS  VALUfcS  ARE 

C  STORED  IN  TmE  ARRAY  TSPUS(l)  AMD  THE  SEGMENT'S 

C  INDEX  IS  STORED  IN  ISSEG(I). 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  STO^EP(X,I) 

COMMON  /TO/SEGCNT.LSTSEG 

COMMON  /TP/ISPOS(c>0),iSSEG(t>0) 

INTEGf.R  SEGCNT 

IF(  (SEGCNI  .NF.O)  .AND.  I  I  .EO.LSTSEG)  )  GO  T  I)  6aO 

SEGCNT  =  SF_GCNTtl 

LSTSFG=I 
640    ISPOS(StGCNT }=X 

ISSEGCSEGCNf )=LSTSEG 

RETURN 

END 


.2^9 


YES 


YES 


NO 

SEGCNT=SEGCNT+1 
LSTSEG=I 


ISPOS(SEGCNT)=X 
ISSEG(SEGCNT)=LSTSEG 


G 


I 


STURN 
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APPENDIX  B 


APPLICATIONS  PROGRAM  AND  SUBROUTINES 


The  applications  program  and  its  flow  chart  were 
presented  first.  Next,  the  seven  subroutines  which  enabled 
the  user  to  determine  polygonal  penetration,  change  the 
coordinate  values  of  a  polygon,  and  alter  the  shade  cr  color 
cf  a  polygon  were  listed.  These  programs  and  their  flew 
charts  were  not  included  with  the  3-D  graphics  software 
package  since  their  applicability  was  strictly  related  to  a 
tracking  presentation. 


251 


ccccccrcccrccLCcccrcccccccccccccrcrcrcccccrccccccLCCCCcccccccccccLCL 
c 

C        THIS  IS  AN  APPLICATION  PROGRAM  DESIGNED  TO  DEMONSTRATE  THE 

C  USAGE  Of"  THE  THREE-DIMENSIONAL  COMPUTER  GRAPHICS  SOFTWARE 

C  PACKAGE.   THE  PROGRAM  SIMULATES  THE  TRACKING  OF  A  TURPEDO  IN  Ah 

C  IRREGULAR  TORPFDO  TEST  AREA. 


ccccccccccccccccccccccccccccccccrcccccccccccccrcccccccrccccccccccLCL 

DIMENSION     lR(^),S(^),IO(^),F(S),TRACKX(S),TRACKY(5),TRALKZfb)> 
&P?(3)#PvECTO(3) ,N(3),P1 (3) 
DATA    DVECTO/O. 0,-1 .0,0.0/ 
CALL     IM1TAL 
CUNV=l8U.O/i. U1S4 
IRED=H 
IPH  =  S 
ISHAD=1o 
NM=0 
1  =  1 

IR<2)=5 
R1SUM=0.0 


ftO 


INITIALIZING  THE  OLD  DIRFCTION  VECTOR 

DO  80  J-l ,3 

R1SUV=RISUM*DVECT0(J) **2 


.   C 

'   c 

C 


MUSI  SCALE  IHF.  IMAGE  OF  Itifc  TORPEDO  SU  THAT  IT  IS  VISIBLE 

IR( 1 )-n 

IR(2)='J 

P2(l )=10.u 

P?(2)=10.0 

P2(3)=I0.0 

CALL  SCALL(IR,P2) 

ROTATE  1HL  VEHICLE  SO  THAI  II  lb  INITALLY  BROADSIDE  TO  THE 
V I E  A  E  K  . 

THE1 A=P0.0 

IAX15=? 

CALL  ROrATF(IR,IAxIS,Pl,P2,IHlTA) 

READ(Sfl)  T 

DO  10  J=l , I 
10    S(J)=-MJ) 
1AXIS=3 

BEGIN  THE  RECURSIVE  P'JRITL*  OF  I  HE  PROGRAM 

POO  TRACKXf  I  )=T ( 1  J 
TKACKY(I)=?(?) 

TRACK/C I )  =  T I  5) 
DO  20  J-l  ,  5 
20     TO(J)=T(J) 

DISPLAY  THF  TUKPEDD  IEST  ARtA  WITH  HIDDEN  SURFACES  SHOWN. 

ILOOr<=? 
IR( I )=1 
IR(2)-3 
CALL  SURFACITH, ILOOK) 

TRANSLATE  ThF  TORPFDO  TO  ITS  PRESENT  LOCATION. 
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IL00K=1 
IRU  )=U 
CALL  rHAN5L(IH,S) 

CHECK  THF  CURRENT  LOCATION  OF  TrlE  TfJRRFOO  TO 
DETfcRMJNK  IF  IT  IS  NiThIN  THE  TEST  AKtA. 

IPP=IPENE  r (1R,T) 
IFCIPP.EQ. 1  J  GO  TO  220 

IFUPP.tn.O.ANn.IFLAG.EG.  1  )  no  TO  240 
230  IF(NM.LT.S)  NMsHM*] 

IP  THIS  M  LEAST  THE  SECOND  LOCATION  OF  THE  TORPEDO 
THEN  DISPLAY  THE  TRACK. 

IF(NM.GT. 1 )GO  To  250 

DISPLAY  THE  TORPEDO  wlTh  I  HE  HIDDEN  SURFACES  REMOVED. 

IR(1  )'H 
IR(2)=U 
CALL  SURFACCIR, 1LOOK) 

GET  THE  TORPEDO'S  NEn  LOCATION. 

READ(5,1)  I 

I  =  Itl 

IF  f  I  ( 1 ) .LI  .-99Q9.0)  STOP 

NO'/.',  COMPUTE  THE  TARGET  ASPECT  OF  THE  TURPfDO. 

Rl SUM: 0.0 
P2SUM=0.0 
DO  50  J= 1 , 3 

S(J)=TO(J)-l (J) 

RaSUV=R2SUMtSlJ) **2 
30  CUNT  INUE 

Rl=SORT (R1SUMJ 

R2=SQRT (R2SUK) 

CTHETAzO.O 

DO  40  J=l,3 
4  0     CTHETA  =  LTHETA»SU)  *DVECTO(J  ) 

THETA=ARCUS(CThtTA/lPl*R2) ) 

THE  I  A=ThETA*CUNV 

N(l  )=DVEC10(2)*3( 3)-OvFCTO(3)*S(2) 

N(2)=DVEC10(l)*S(3)-PVECTO(5)*S(1) 

N(3J=OVECIO(l )*SC2)-DVECTU(?)*S(1  ) 

DO  50  J=l ,3 
50    P2(J)  =  UJJ*N(J) 

ROTATf;  THE  TORPEDO  ABOUT  T  HE  AHlTRARY  AxTS  SPECIFIED  HY 
THE  TaO  POINTS  P2( )     AND  S( ) . 

CALL  ROTATE ( IR.  I  AXIS,  I  ,P2, THE IA) 
UPDATE  JHt  OLD  DIRECTION  VECTOR. 

R1SUV=R2SUV 
DU  oO  J=l , 3 
60    DVECTO(J)=S(.I) 

GO  TO  200 

DISPLAY  THE  TRACK. 
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250  I Z  =  I 

DO  7  0  J=1,NM 

PI ( 1 )=TRACKX (  \l  ) 
PI  (2)  =  TKACKY(  IZ) 
P1(3)  =  TKACKZ(U) 
I  ^  =  I  Z- I 

if  (iz.Lr.n  17=5 

CALL  PUTSiNCIP, J,P1 ) 
7  0  CONTINUE 
IR(1 )=IPH 
IR(2}=IPH 

CALL  DTSPLY(Ik) 
GO  TO  ?30 

THE  TORPEDO  HAS  PENETKATEO  THE  TEST  AWF_A  CHANGE  MS  CLOk 
AND  ThE  TRACK'S  COLOR  TU  RED. 

220    1FLAG=1 

CALL  CSHAUdR,  TPED) 
GU  TO  ?30 

TORPEDO  IS  HACK  IN  THE  TEST  AREA  sn  CHANGE  ITS  COLOR  TO  HIACK 

?40  IFLAG=0 

CALL  CShADf IP, ISHAD) 
GO  10  ?30 
J  FQRMA1 (3G10.3) 

END 


25^ 


f    MAIN    J 


I 


rotatetorpedo  to  provide 
initial  broadside  aspect 


DISPLAY  TORPEDO  TSoT  AREA'S 
BACK  SURFACES 


TRANSLATE  TORPEDO  TO  IT'S 
INITIAL  POSITION 


X 


^ORPEDQ 
SNSTRATED^,  YES, 
ST  ARE 


CHANGS 
TORPEDO  & 
TRACK  TO 
RED 


CHANGE 
TORPEDO'S 
COLOR   TO 
BLACK 


I 


DISPLAY    TORPEDO    AND    TRACK 


READ    NEW 
?ORPEDO 
'POSITION 


STOP 


COMPUTE:  NEW  DIRECTION  VECTOR, 
ANGLE  OF  ROTATION,  AXIS  OF  ROTATION, 
UPDATE  TRACK 


ROTATE 

TORPEDO 


?^5 


ccccccccccccccctccccccccccccccccccccccfcccccccccccciccccccccccriCLCc 
c 

C        CHGSGN:  CHANGES  THE  SIGN  OF  THF:  COEFFICIENTS  FOR  THE 

C  POLYGON  K. 

C 

cccccccccccccccccccccccccccccccccccecccccccccccccccccccccccccccccrcc 

SUBROUTINE  CHGSGN (K) 

COMMON  /CA/  POLYA(ftO)  ,POl.rn(bO)  ,POLYC  (60)  ,POL  YDC60) 

POLYA(K)=-PQL  1 A(K ) 

POLYB(K)=-POLYR(K ) 

POLYCCK )=-POLYC (K ) 

POLYfHK  )=-POL  YO(K  ) 

RETURN 

END 
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(CSHADdR 


/     .TT  .-llS              > 

.,  .T-1 

\         yS                    K=POLGN 

KL=IR(2) 

J=P0LYHE(JL,1) 
K=P0LYHE(KL,2) 

1. 

r 
i 

i 


Oe:o 


ccccccccccccccccccccccrcccccccccccrcccncctcccccccccccccccccccccccLCc 
c 

C  INTERR:  CGf-'PUl  ES  THE  POINT  ftHICH  IS  T  HE  '  GE  OMF.  TP  I  C  CENTER 

C  OF  A  SET  UF  CUNvFX  POLYhEORA.   THEN,  IT  CHANGES  THE 

C  SIGN  OF  ThE  COEf-  F I CIENTS  FOR  ALL  POLYGONS  OF  EACH 

C  POLYHEDRON  SO  THAI  THE  DOT  PRODUCT  OF  AN  INTERIOR 

C  POINT  rtlTh  Tut.  VECTOR  NORMAL  wILL  Rt  LESS  THAN  ZERO. 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCfCCrCCCCCCLCCCCrCCCCCCCCLLL 
SUnROUTlNL  INTF'RR(Ik) 
DIMENSION  I*(2) 
COMMON  /CA/  P0LYA(60),PULYR(fct 


/Cd/ 
/AA/ 
/ftf/ 
/AC/ 
/FF  / 


XSU.V,  YSUV,ZSUM,  1C 
POl  YbE(  10,?)  ,POLY 
POL  YGN(60,  1  1  ),POl 
EDGE  I  (60)  ,EOGt ?lfc 
PCHANG(200  ) 


PULYHE,ROLYHN,PULYr.N , POLGN , SHAD , F DGE 1 ,  EDGF.2,  FOGLN  , 


COMMON 
COMMON 
COWON 
CUMVON 

COMMON 

integer 

&PCHANG 
DO     SO     [=1,200 
50    PCHANGf I )=0 
JL=IR( 1 ) 
KL=IR(2) 
DO    1200    I  =  JL,ki. 
ML=POLYHE(I, 1 ) 
NL=POLYHE CI,?) 
XSUM=0.0 
YSUM=0.0 
ZSUr«  =  O.U 
ICM=0 
DO     I  ?  I  0    K=NL,'-'L 

LN  =  POLYG-;iK  ,11) 
DO     1220    N=l ,LN 

L=POLYGN(K,N ) 
K t=fcOGEl (L  ) 
K2=EDGE2(L) 
IF(PCHAfjG(K  l  )  .f.'J.O) 
IF(PCHANG(K2) .EO.O) 
1220  CONTINUE 

1210         CONTINUE 
C=ICNT 
XAVE=xSUM/C 
YAVE=YSU^/C 
ZAVE=ZSU^/C 
DU     12  50     K=NL,ML 

I  SIGN  =  X AVI   *POLY A f K)  ♦ Y Av 
IF (lSlOu.GT.O)     CALl     CtH< 
1230         CONTINUE 
1200    CONIINUE 
RETURN 
END 


0)  ,PUt  Yf (fcO),ROLYD(60) 

NT 

UN 

GN,  SrlAD  (  bO  ) 

U)  ,Ft)GI  N 


CALL     SUMMIT(KI) 
CALL    SUMMIKK2) 


F*POLYK(K)+ZAVE*PnLYC(K)*PULYD(*) 
SGN(K) 


Q 


INTERR(IR) 


JL=IR(1) 
KL=IR(2) 
I=JL 


K=K11 


ZERO  ARRAY  PCHANG( ) 

ML=POLYHE(I,l) 

NL=POLYHE(I,2) 

XSUM=YSUM=ZSUM=0 

IXCNT=IYCNT=IZCNT=0 

K=ML 


XAVE=XSUM/ICNTX 
YAVE=YSUM/ICNTY 
ZAVE=ZSUM/ICNTZ 
K=M1 


1 


ISIGN=XAVE*POLYA(K)+YAVE* 
POLYB ( K ) +ZAVE  *  POLYC ( K )  + 
POLYD(K) 


KD 


LN=POLGN(K,ll) 


-O 


L=PCLYGN(K,N) 
K1=EDGE1(L) 
K2=EDGE2(L) 


-O 


PCHANGCKOj 
<^     =0          >ES 

SUMIT(Kl) 

NOV^ 

U 1 

SUMIT(K2) 


N=N  +  1 


HD 


K=K+1 


KD 
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CCCCCCCCCCCCCCCLCCCrcCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCLruCL 

c 

C  IHENET:  DETERMINES  IF  A  POINT  IS  OUTSIDE  UF  A  GIVEN  StT  OK 
C  POLYHEDRA.   IF  IT  TS  UL'ISIDE  UF  THF  POLYHEDRONS  THIS 

C  FUNCTION  RETURNS  A  VALUE  UF  1.   THTS  FUNCTION  MUST  nF 

C  USED  IN  CONJUNCTION  WITH  SUBROUTINES  POLLY  AND  INIFnR. 

C 

cccccccccccccccccccLCcrcccccrLccccccccccccccccrcccccrcccccccccrccc.ee 

FUNCTION  IPENET(IR,S) 
DIMtNSION  S(3)  ,  l»(?) 

COMMON  /CA/  PGLYA(60),P0LYB(b0),P0LYC(60),P0LYD(6Q) 
COMKOM  /AA/  PuLYHt (10/?)f POLYHN 
INTEGER  POLYHE,POLYHN 
CALL  POLLY(IH) 
CALL  IKTEkR(TK) 
JL=IK( 1 ) 
KL=IR(2) 
INSIDE=0 
X=S( 1 ) 
Y=S(?> 
7=S(3) 

DO  1POO  I=JL,KL 
NL=POLYh£( 1,1) 

KLsPOLVHECIf?) 

lOK  =  0 

DU  1«  10  KsNLfML 

IPP=POLYA(K)*xtPOLYH(K) *Y+PULYC(K) *Z*POLYD(K) 

IF  (IPP.bT.O)  10K  =  1 
lft  10    CONTINUE 

IK  (  I  OK. fc 0.0)  iNSIOEsl 
18U0  COM  I  INUE 
IPFNE 1=0 

IF(INSIDE.EN.O)  TPENETsi 
RETURN 
END 
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IPZNET(IR,3) 


I 


POLLY(IR) 
INTER(IR) 


JL=IR(1) 
KL=IR(2) 
I=JL 


X=S(1) 
Y=S(2) 
Z=S(3) 


-^- 


IOK=0 

NL=POLYHE(I,l) 
ML=POLYHE(I,2) 
K=NL 


IPP=POLYA(K) *X+POLYB(K) *X+ 
POLYC ( K ) *  Z+POLYD ( K ) 


IOK  =  l 


K=K  +  1 


1=1  +  1 


IPENET=0 
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CCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCLCCCCCCCCCCCCCCCOCCCCCCCCCCCCCLCCCLCL 

c 

C         PNTSTN:  ALOUrtS  THE  USER  TU  REPLACE  ANY  VLxltX  OK  POINT  uF 

c         a  polygon. 
c 

CCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCL 
SUBROUTINE.  PUT  SIN (IP, J,P) 
DIMENSION  Pi  5) 

COMMON  /Att/  PuLYGN(bO»  1  1)  , POL  UN , SHAD ( bO ) 
COMMON  /AL/  EDGEl  (  100)  ,EDGfc<M  1UU)  ,FJUGEN 
COMMON  /AAA/  XF.  (  130)  ,  YE  I  lf'O)  ,  ZF.(  U^O)  ,  POINTN 
INTEGER  POLYGN,POLGN,EDGEl  ,EDGE2, EDGEN,POINTN 
IF  (J. tO.  1  1  )l,0  TO  21  1 
NUM=POLYGl»<  I P,  1  1  ) 
NlWO=J-l 

IF  (J.  tQ.  1  JNh-iO  =  NU>! 
L=POLYGN( IP, J) 
L2=P0LYGN(  lt*,i<iTwOJ 
MsEUGtl (L ) 
M2=EDGE2(L2) 
XS(M)=P(] ) 
XS(M£)=P( 1 ) 
YS(N')=P<?) 
YS(M2)=P(?) 
ZS(M)=P(  5) 
ZS(M?J=P( S) 
RETURN 
?11  POLtGN( IP, J  )=P(  1  ) 
RETURN 
END 


2o2 


V^NTSIN(IP,J,P]/ 


L=POLYGN(IP,J) 
M=EDGE1(L) 


XE(M)=P(1) 
YE(M)=P(2) 
ZE(M)=P(3) 


f RETURN  J 
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ccccccccccclcccccccccccccccccccccccccccccccccc ccccciccccccccclccclcc 
c 

C        PULLY;  COMPUTES  THE  POLYGONAL  PLANE  COEFFICIENTS  FOR  A  SF I 
C  OF  POLYh&ORA  AS  DETERMINED  ttY  THE  CALLING  PARAMETER  IK. 

C  TH(1)  =  THE  INOEX  OF"  1  HE  FlKSI  POLYHEDRON 

C  lR(d)  =  U'E  INOEX  OF  IHE  LAST   POLYHEDRUf: 

C 

CCCCCCCCCCCCCCCCCLCr.CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SURROUTlMt  POLLY (IP) 
DIMENSION  IR(2) 

COMMON  /CA/  PJLYA(bO)  ,POLYR(bO)  ,POLYC(60)  ,POL  *D(feO) 
COMMON  /AA/  POLY WE (10,?), POL YHN 
COMMON  /Ab/  PULYGN(bO, I  1 ),POLGN 
COMMON  /AC/  FDGE1 ( 100),EDGE2( 100) ,EDGEM 
COMMON  /AAA/  XE(1«?0),  YFUPO  )  ,ZE(1<!0)  ,P0INFN 

INTEGER  POLfHt,POLYHN,POLYGN,POLGN,EDGE  1 ,LDGE?, EDGEN,POIN TN 
JL=1R( 1  J 
K  L  =  I R  (  ? ) 
JsPOLVHE ( Jl  ,  I  ) 
KrPOLYHE (KL,?J 
DO  1910  N  =  J,K 

L=POLYON(N,  1  ) 

M=POLYGls(N,i?) 

KlrtDGfc 1 (L) 

K2=EDGFaa) 

K5  =  EDLF.  1  t») 

IF(H3.t'G.K1  ,OR.*3.EQ.K?)  K3=EDGE2(M) 

X1=>E  (K  1  ) 

Y1=YE(K  1  ) 

Z1=ZE(K  l  ) 

X2=XE(K2)-x  1 

Y2=YE(K£)-Yl 

Z2=ZE(K2)-Z1 

Y3  =  XE  (K$)-< 1 

Y3=YF (Ki)-Yl 

73=ZE(Ki)-Zl 

POL  Y  A  t  Ki )  =  Y  "W  2  -  Y  <W  5 

POLYH(N )=x2*74-a"W<? 

P0LYC(N)=X3*Y?-X?*Y  S 

POLY0(N)=-(POLYA(M)*Xl+POLYfi(N)*Yl+POLYl(N)*Zl) 

1P10  CONTINUE 
RETURN 
END 
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( 


POLLY(IR) 


JL=IR(1) 


KL=IR/2 


J=POLYHE(JL,l) 
K=POLYHE(KL,2) 

N=J 


L=POLYGN(N,l) 
M=POLYGN( N, 2) 
K1=EDGE1(L)       K3=EDGE1(K) 
K2=EDGE2(L) 


X1=XE(K1)  Y1=YE(K1) 

X2=XE(K2)-X1      Y2=YE 
X3=XE(K3)-X1      Y3=YE(K3) 


Zl=ZE(Kl) 

Z2=ZE(K2)-Z1 
Yl    Z3=ZE(K3)-Z1 


POLYA(N)=Y3*Z2-Y2*Z3 
POLYB(N)=X2*Z3-X3*Z2 
POLYC(N)=X3*Y2-X2*Y3 
POLYD(N)=S-fPOLYA(N)*Xl+POLYB(N)*Yl 

UpOLYC(N) 


N=N  +  1 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccct 

c      summit:  rs  used  by  the  subRouriNE  interk  fo  sum  the  x,  y, 

c         and  7  values  for  all  of  the  vertices  t-nw  rut  currfnt 

C  POLYHEORON.   ADDITIONALLY,  A  RUNNING  COUNT  OF  THE 

C  NijMhFR  UF  VERTICES  SUMMED  [S  MAINTAINED. 

CCCCCCofi»£nur^!^ 

SUBKOUT I Nt  SUMMI T (K ) 

COMMON  /AAA/  XF(120),YEU20),ZE(1?0),POINTN 

COMMON  /CH/  XSUMfYSUM,ZSUM, ICNT 

COMMON  /FF/  PLHANG(20u) 

INTEGER  POTNTN,PCMANG 

PCHANG(K)=| 

XSUMrxSUMt x£ f  * ) 

YSUM=YSUMtYt f* ) 

ZSUHs2SUMt7E CK) 

ICNTriCNTt | 

RETURN 

END 


ccccccccccccccccccccccrcccccccccccccccccr-CCCCCccccccccccccccccriCLfL 
c 

C         CSHAD:  CHANGES  THE  SHADE  OR  COLOR  OF  ANY  SET  OF  POL THtOKONS . 
C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCH  i 

SUBROUTINE  CSHAD(IR,ME*0 

COMMON  /AA/  POLYHE ( 10#2)f POLYHN 

COMMON  /AH/  PULYCN(GO,  1  1  )  ,Pdl  GN,SHAD(60) 

01  MENS  I  UN  FR(?) 

INTEGER  POL YHE» POL YHN, POL YGN.POLGn, SHAD 

JL  =  IPU  ) 

KL=IR(?) 

J=RULYhE(JL, 1 ) 

K=P0LYHE(*L,2J 

00  720  1=J,K 
SHAO(  I  )sN£W 
720  CON! | hut 

RETURN 

END 


o££ 


(^SUMMIT  (K)J 


PCHANG(K)=1 


XSUM=XSUM+XE(K) 
YSUM=YSUM+YE(K) 
ZSUM=ZSUM+ZE(K) 


IXCNT=IXCNT+1 
IYCNT=IYCNT+1 
IZCNT=IZCNT+1 


C 


RETURN 


C  CHGSGM(Kn 


POLYA(K)= 
POLYB(K)= 
POLYC(K)= 
POLYD(K)= 


POLYA(K) 

POLYB(K) 

-POLYC(K) 

-POLYD(K) 


(       RETURN      J 
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FCCTNOTES 


1  Phong,  Bui  Tuong,  "IlluminaticE  for  Cunputer 
Generated  Pictures,"  Communications  of  the  ACM,  v.  16,  no. 
6,  p.311,  June  1975.    

2  Schmacker,  Robert  A.,  Sproull,  Robert  F.,  and 
Sutherlsnd,  Ivan  E..  "A  Cnaraterization  of  Ten 
Hidden-Surface  Algorithms,11  Computing  Surveys,  v.  6,  nc.  1, 
p. 9,   March  1974. 

3  Newman,  William  A.  and  Sprcull,  Robert  F., 
Principles  of  Interactive  Computer  Graphics,  McGraw-Hill,  p. 

♦  Ibid.,  p 

s  Ibid.,  p 

6  Ibid.,  p 

7  Ibid.,  p 
a  Ibid.,  p 


247. 

256-259. 
249. 
316-317. 

545. 


9  Schumacker,  p.  13-14. 
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